Re
Remplace le code par celui-ci :
Sub Regroupe()
Application.ScreenUpdating = False
Worksheets("general").Range("A12:BC65536").Clear
For I = 2 To Worksheets.Count
With Worksheets(I)
.Range("A11", .Cells(.Range("A65536").End(xlUp).Row, 55)).Copy Destination:=Worksheets("general").Range("A65536").End(xlUp)(2)
End With
Next I
End Sub
Amicalement
Nad