Public Sub regrouper()
Dim i%, x%, a%, b%
Application.ScreenUpdating = False
For i = 1 To 5
Sheets(i).Rows("5:200").ClearContents
Next i
x = Sheets.Count
For i = 1 To 5
For a = 6 To x
Sheets(i).Range("A65000").End(xlUp).Offset(1, 0) = Sheets(a).Name
Sheets(i).Cells(65000, 2).End(xlUp).Offset(1, 0) = Sheets(a).Cells(5, 2 + i)
Sheets(i).Cells(65000, 3).End(xlUp).Offset(1, 0) = Sheets(a).Cells(6, 2 + i)
Next a
Next i
End Sub