Sub CopierMois()
Dim C As Range
Set C = Cells(8, Columns.Count).End(xlToLeft).Offset(, -2).Resize(15)
C.Offset(, 1).Insert shift:=xlShiftToRight
C.Copy C.Offset(, 1)
C.Offset(1, 1).Resize(4).ClearContents
C.Offset(10, 1).Resize(4).ClearContents
Application.CutCopyMode = False
End Sub