Recherche prochaine date d'échéance parmi une liste de date

=INDEX(D4:M4;1;EQUIV(RECHERCHEH(C9;D4:M4;1;VRAI);D4:M4;0)+1)

Sub Test()
Dim VarCible As String
Dim VarExtMois As String
Dim VarExtMois1 As String
Dim VarReCherche As String
Dim Cpt As Byte
Dim X As String

VarCible = Sheets("Feuil1").Range("C9")
VarExtMois = Mid(VarCible, 4, 2) + 1     'Extraction du N° du mois cellule C9 + 1 pour le mois suivant

For Cpt = 0 To 9            'Boucle sur les colonnes

    X = Range("D4").Offset(0, Cpt).Address
    
    VarReCherche = Sheets("Feuil1").Range(X)
    VarExtMois1 = Mid(VarReCherche, 4, 2) * 1  'Extraction du N° du mois pour comparaison
    
    If VarExtMois = VarExtMois1 Then
        Sheets("Feuil1").Range("B9") = Format(VarReCherche, "dd/mm/yyyy")
       Exit Sub
    End If
    
Next Cpt

End Sub