Effectuer un saut de ligne automatiquement [VBA]

Sub DécouperTableauEnBlocDe288Lignes()
Dim D As Range  'Début
Dim V As Range  'Vide
Dim T As Range  'Tableau

  Application.ScreenUpdating = False
  'Début du tableau
  Set D = ActiveSheet.Cells(1, "A")
  Do
    'Tableau
    Set T = D.CurrentRegion
    If T.Rows.Count > 288 Then
      'Ajouter une ligne vide après la 288ème
      Set D = D.Offset(288)
      D.EntireRow.Insert
    Else
      '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 = True

End Sub

Option Explicit

Sub decouperparjour()
Dim ligne As Long
Dim jour As Date, cejour As Date
Dim valeur As Range

jour = Int(CDate(ActiveSheet.Cells(1, "A")))
ligne = 2
Do
    Set valeur = ActiveSheet.Cells(ligne, "A")
    If Not IsDate(valeur) Then
        Exit Do
    Else
        cejour = Int(CDate(valeur))
        If (cejour <> jour) Then
            jour = cejour
            ' ajouter une ligne vide avant
            valeur.EntireRow.Insert
            ligne = ligne + 1
        End If
    End If
    ligne = ligne + 1
Loop
End Sub