Dim shDest As Worksheet
Set shDest = Sheets("synthèse")
For Each ws In Worksheets
If ws.Name Like "Feuil##" Or ws.Name Like "Feuil#" Then
ws.UsedRange.Rows("2:" & ws.UsedRange.Rows.Count).Copy
shDest.Cells(shDest.UsedRange.Rows.Count + 1, 1).PasteSpecial 'Etc.....
End If
Next ws