obligation de remplir cellule pour passer au mois suivant

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

    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

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