MACRO Suppression lignes et colonne

Bonjour,
Quelqu’un peut m’aider SVP de résoudre cette Tache avec le Macro
Il s’agit de supprimer les entêtes et le premier tableau dénommé récapitulatif (coloré en vert dont le nombre des lignes pour chaque tableau sont variables) et deux colonnes (colorés en jaune),
Entre le premier tableau récapitulatif (à effacer) et le bon tableau (second), il y a toujours deux lignes vides qu’il faut effacer aussi.
Et d’enregistrer, par la suite, le résultat sous un format Excel 97-2003 ; j’aimerais automatiser cette opération. Fichier en annexe
_Relevé.xls (32,5 Ko)
_

Bonjour,

A mettre dans le développer en Feuil1(Releve), et lancer la macro

Sub Modif()
Dim NoLigne%
  Range("A19").Select
    'Recherche le mot "COMPTE" dans les lignes 3 fois
    Cells.Find(What:="Compte", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    NoLigne = ActiveCell.Row 'Attribue le N° de la ligne
    Rows("1:" & NoLigne - 1).Select 'Sélection ligne 1 à NoLigne -1
    Selection.Delete Shift:=xlUp 'Supprime la sélection vers le haut
    Columns("M:M").Delete Shift:=xlToLeft 'supprime la colonne M
    Columns("K:K").Delete Shift:=xlToLeft ''supprime la colonne K
    Range("A1").Select
    'Enregistre le nouveau fichier modifié
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Relevé Modifié.xls", FileFormat:=xlExcel8
End Sub

Mimimathy Merci beaucoup ça marche. Mais est que vous pourriez m’ aider un peu plus sur le choix du dossier d’ emplacement du fichier " relevé modifié". Ex :D:\releve Modif
car ce résultat revient, par défaut, dans le dossier ou se trouve le fichier source.

Merci infiniment

Re,
A la demande

Faudrait peut-être expliciter la demande avec un exemple concret

Je voudrais enregistrer le fichier “relevé modifié excel 97-2003” dans un emplacement spécifique

Exemple:Il est enregistré dans Ordinateur:\D:\Dossier modif quelque soit l’ emplacement du fichier source

Merci encore pour votre reponse,

Re

Il suffit de remplacer par cette ligne

ActiveWorkbook.SaveAs Filename:="D:\Dossier modif\Relevé Modifié.xls", FileFormat:=xlExcel8

merci Beaucoup Mimimathy , ça marche tres bien