Sub Recap()
ligne = 7
For Each s In Array("N°1", "N°2")
For lig = 26 To Sheets(s).[B65000].End(xlUp).Row
If Sheets(s).Cells(lig, 2) <> "" Then
Sheets(s).Cells(lig, 2).Resize(, 10).Copy
Sheets("synthese").Cells(ligne, 2).PasteSpecial Paste:=xlValues
Sheets("synthese").Cells(ligne, 1) = s
ligne = ligne + 1
End If
Next lig
Next
End Sub