Bonjour à tous,

j'ai deux feuilles nommées "Feuil1" et "Feuil 2". les colonnes exploitées sont A à H. elles ont les mêmes entêtes.J'aimerais les coller les unes à la suite des autres dans la feuille de synthèse Récap. Avant tout, j'efface à chaque fois les données présentes dans l'onglet "Récap". Je souhaiterais lancer la macro depuis la feuille Feuille "A".

Actuellement mon code , il fonctionne mais il faut absolument le lancer depuis la feuille de synthèse. J'aimerais le lancer depuis la feuille "A".



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
 
 
For Each f In Worksheets(Array("Feuil1", "Feuil2"))
 
        If f.Name <> ActiveSheet.Name Then
 
            f.Range("A2:H" & f.Range("A" & Rows.Count).End(xlUp).Row).Copy
            lgn = Range("A" & Rows.Count).End(xlUp)(2).Row
            Range("A" & lgn).PasteSpecial xlPasteAll
        End If
    Next f
    Range("A" & Rows.Count).End(xlUp).Select
    MsgBox "Travail terminé"