Faire interior colore le jour du mois

Bonjour le forum

J'ai cette macro qui fait un interior colore mais le jour d'après c'est à dire le 2 février

Je voudrais le faire ce jour.

Merci pour vos retours

Sub Colorise_Jour()
Dim J As Long

  For J = 6 To 36
    If Range("B" & J) = "" Then
      If J > 6 Then
        Range("A" & J & ":G" & J).Interior.ColorIndex = 17
      End If
      Exit For
    End If
  Next J
End Sub

Bonjour,

Merci de joindre un fichier à ta demande

Bonsoir SlimShady69

Je me suis débrouillé autrement trop compliqué trop de conditions

MFC et mis en commentaires Colorise_Jour dans macro

Bonne fin de soirée à toi

Cordialement