Effactuer un saut de ligne automatiquement apres chaque mois

Sub decouperparmois()
Dim ligne As Long
Dim unmoment As Date
Dim lemois As Date, cemois As Date
Dim valeur As Range

unmoment = CDate(ActiveSheet.Cells(1, "A"))
lemois = DateSerial(Year(unmoment), Month(unmoment), 1)
ligne = 2
Do
    Set valeur = ActiveSheet.Cells(ligne, "A")
    If Not IsDate(valeur) Then
        Exit Do
    Else
        unmoment = CDate(valeur)
        cemois = DateSerial(Year(unmoment), Month(unmoment), 1)
        If (cemois <> lemois) Then
            lemois = cemois
            ' ajouter une ligne vide avant
            valeur.EntireRow.Insert
            ligne = ligne + 1
        End If
    End If
    ligne = ligne + 1
Loop
End Sub

Option Explicit
Sub DécouperTableauEnBlocsMensuels()
Dim C As Long    'Compteur
Dim L As Long    'n° ligne
Dim J As Date    'Jour
Dim M As Byte    'Mois

  Application.ScreenUpdating = False
  'Supprimer les lignes vides
  Call SupprimerLesLignesVides
  'Séparer les jours (en partant de la fin)
  With ActiveSheet
    L = .Cells(Rows.Count, "A").End(xlUp).Row
    J = DateValue(.Cells(L, "A").Value)
    M = Month(J)
    For C = L - 1 To 2 Step -1
      J = DateValue(.Cells(C, "A").Value)
      If Month(J) <> M Then
        M = Month(J)
        .Rows(C + 1).Insert
      End If
    Next C
  End With
  Application.ScreenUpdating = True

End Sub

Sub SupprimerLesLignesVides()
Dim D As Range   'Début
Dim V As Range   'Vide
Dim T As Range   'Tableau
Dim S As Boolean 'ScreenUpdating
  
  S = Application.ScreenUpdating
  Application.ScreenUpdating = False
  'Début du tableau
  Set D = ActiveSheet.Cells(1, "A")
  'Supprimer les lignes vides
  Do
    'Tableau
    Set T = D.CurrentRegion
    'Ligne vide suivant le tableau
    Set V = D.End(xlDown).Offset(1)
    'Est-ce la fin des données de la feuille ...
    If ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row < V.Row Then
      '... Oui : terminer
      Exit Do
    Else
      '... Non : supprimer les lignes vides
      V.Resize(V.End(xlDown).Row - V.Row).EntireRow.Delete
    End If
  Loop
  Application.ScreenUpdating = S
  
End Sub