Sub CopierColler()
Dim wsh As Worksheet, derlig&, xrg As Range
Application.ScreenUpdating = False
Worksheets("Centralisation").Range("A2:H" & Rows.Count).ClearContents
For Each wsh In ThisWorkbook.Worksheets
If IsDate("1-" & wsh.Name) Then
If Len(wsh.Range("A3")) > 0 Then
With Worksheets("Centralisation")
derlig = wsh.Cells(Rows.Count, "A").End(xlUp).Row
If derlig > 2 Then
Set xrg = .Cells(Rows.Count, "B").End(xlUp).Offset(1)
wsh.Range("A3:G" & derlig).Copy xrg
xrg.PasteSpecial Paste:=xlPasteValues[/color] ' C'est ici que ça bugue
xrg.Offset(, -1).Resize(wsh.Range("A8:G" & derlig).Rows.Count) = Month("1-" & wsh.Name)
End If
End With
End If
End If
Next wsh
End Sub