bonjour,
une proposition
Sub aargh()
Set wst = Sheets("recap") ' feuille cible
wst.Cells.ClearContents
For Each wsn In Split("1,2", ",") 'liste des feuilles à inclure dans recap
With Sheets(wsn)
dl = .Cells(Rows.Count, 1).End(xlUp).Row
dlt = wst.Cells(Rows.Count, 1).End(xlUp).Row
If dlt = 1 Then .Rows(6).Copy wst.Cells(1, 1) 'copie entête
dlt = dlt + 1
.Rows(7 & ":" & dl).Copy wst.Cells(dlt, 1) ' copie lignes
End With
Next
End Sub