Macro VBA copier-coller tableaux help !

Sub Macro1()

'Voici ma macro qui:

'efface les données de la feuille 1 (qui est celle de la feuille

'récapitulative)

'copie la ligne 1 (qui est la ligne d'entêtes de colonnes) de la feuille 2 sur la feuille 1

'copie la plage des données des feuilles 2 au nombre total de feuilles du classeur sur la première feuille

'la plage copiée commence à partir de la ligne 2 jusqu'à la dernière ligne contenant des données (colonnes A à H ).

Dim Feuil1 As Worksheet

Dim l As Long

Dim f As Integer

Dim Plage As Range

Dim Lignes As Long

Sheets("Feuil1").Cells.Clear

Sheets("Environnement interne").Range("A1:H1").Copy _

Destination:=Sheets("Feuil1").Range("A1")

l = 2

For f = 2 To Sheets.Count

If Application.CountA(Sheets(f).Range("A2"). _

CurrentRegion) <> 0 Then

With Sheets(h)

Lignes = .Range("A:A").Find("*", , , , , xlPrevious).Row

Set Plage = .Range(.Cells(2, "A"), .Cells(Lignes, "H"))

End With

Plage.Copy Destination:=Sheets("Feuil1").Cells(l, "A")

l = Sheet("Feuil1").Range("A:A").Find("*", , , , , xlPrevious).Row + 1

End If

Next f

End Sub

Option Explicit

Sub Macro1()

 
'Voici une macro qui:

'efface les données de la feuille 1 (qui est la feuille récapitulative)

'copie la ligne 1 (qui est la ligne d'entêtes de colonnes) de la feuille 2 sur la feuille 1

'copie la plage des données des feuilles 2 au nombre total de feuilles du classeur sur la première feuille

'la plage copiée commence à partir de la ligne 2 jusqu'à la dernière ligne contenant des données (colonnes A à H ).

 
Dim l As Long

 
Dim f As Integer

 
Dim Plage As Range

 
Dim Lignes As Long

 
Dim Feuil1 As Worksheet

 
Worksheets("Feuil1").Cells.Clear

Worksheets("Environnement interne").Range("A1:H1").Copy _

Destination:=Worksheets("Feuil1").Range("A1")

 
     l = 2

 
     For f = 2 To Sheets.Count

          If Application.CountA(Worksheets(f).Range("A2").CurrentRegion) <> 0 Then

               With Worksheets(f)

               Lignes = .Columns("A").Find("*", , , , , xlPrevious).Row

               Set Plage = .Range(.Cells(2, "A"), .Cells(Lignes, "H"))

               End With

          Plage.Copy Destination:=Worksheets("Feuil1").Cells(l, "A")

          l = Worksheets("Feuil1").Columns("A").Find("*", , , , , xlPrevious).Row + 1

          End If

     Next f

 
End Sub