bonjour
accrochez-vous
Sub hhh()
Application.DisplayAlerts = False
Sheets("synthèse").Delete
Sheets.Add.Name = "synthèse": Set actsh = ActiveSheet
For Each sh In Sheets
If sh.Name <> actsh.Name Then
sh.UsedRange.Offset(IIf(actsh.UsedRange.Rows.Count = 1, 0, 1)). _
Resize(IIf(actsh.UsedRange.Rows.Count = 1, sh.UsedRange.Rows.Count, sh.UsedRange.Rows.Count - 1)).Copy actsh.Range("a65536").End(xlUp).Offset(IIf(actsh.UsedRange.Rows.Count = 1, 0, 1))
End If
Next sh
actsh.Select
End Sub
bye
Stéphane