Sub fuse()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "recap" Then
Application.ScreenUpdating = False
ws.Activate
Range("A1:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy
Sheets("Feuil1").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.PasteSpecial Paste:=xlValues, Transpose:=True
Application.CutCopyMode = False
End If
Next ws
End Sub