Sub CopierMois()
Dim C As Range
Set C = Cells(8, Columns.Count).End(xlToLeft).Offset(, 1)
For Each cel In Range(Cells(9, Range("C8").End(xlToRight).Column), Cells(16, Range("C8").End(xlToRight).Column))
If cel = "" Then
MsgBox ("mois non terminé")
Exit Sub
End If
Next cel
If Cells(10, Range("C8").End(xlToRight).Column) < Cells(9, Range("C8").End(xlToRight).Column) Then
MsgBox ("pb : compteur fin < compteur debut")
Exit Sub
End If
If Cells(12, Range("C8").End(xlToRight).Column) < Cells(11, Range("C8").End(xlToRight).Column) Then
MsgBox ("pb : compteur fin < compteur debut")
Exit Sub
End If
Range("D8:D22").Copy C
C.Offset(1).Resize(4).ClearContents
C.Offset(1).FormulaR1C1 = "=R[1]C[-1]"
C.Offset(3).FormulaR1C1 = "=R[1]C[-1]"
Application.CutCopyMode = False
End Sub