[EXCEL] probleme selection cellule

Sub Test()
    
    Dim DateFin As String
    Dim DateDepart As String
    Dim Plage As Range
    Dim Periode As Range
    Dim Date_Du_Jour As Date
    Dim Compteur As Long

'    DateFin = Range(mois).Find(what:=jour_fin).Offset(0, 1).Address
'    DateDepart = Range(mois).Find(what:=jour_début).Offset(0, 1).Address
    DateDepart = ("D5")
    DateFin = ("D10")
    Set Periode = Range(DateDepart & ":" & DateFin)
    
    For Each Plage In Periode
        If Plage.Interior.ColorIndex = xlNone Then
            Compteur = Compteur + 1
        End If
    Next
    
    Date_Du_Jour = CDate(Txt_du.Value)
    
    If (Date_Du_Jour < Date) Then
        MsgBox ("Attention la date saisie est antérieur à la date du jour")
        GoTo Fin
    End If
    
    If Compteur = 0 Then
        Txt_TotalJour.Text = 0
    Else
        Txt_TotalJour.Text = Compteur
    End If

Fin:

End Sub
'