copier plusieures plage defeuilles dans une seule

[BAZOUZ]

Bonjour
mon fichier comporte plusieurs feuilles , j'ai besoin d'un code qui copier va à le feuille 1 copier les plages non vides et recopie cette plage dans feuille recap ensuite feuille2 copier plage non vide et coller dans feuille recap
à la fin de la dernière ligne (la feuille recap comportera donc toutes les plage une au dessus de l-autre)
merci de votre aide

 

[Hieu]

Salut, comme ça ?

Sub mlk()
Set r = Sheets("RECAP")
For Each s In Sheets
If Not s.Name = r.Name Then
i = 0
    Do
    s.Range("a2:h2").Offset(i, 0).Copy
    Range("a2:h2").Offset(k, 0).PasteSpecial
    i = i + 1: k = k + 1
    Loop Until IsEmpty(s.Range("a2").Offset(i, 0))
End If
Next s
Application.CutCopyMode = False
End Sub

 

[BAZOUZ]

Merci
c'est genial