Private Sub UserForm_Initialize()
Dim c As Range 'déclare la variable c
Dim cel As Range 'déclare la variable cel
'boucle sur toutes les cellule de la plage A2:N2
For Each cel In Feuil1.Range('A2:N2')
If cel.Value > Date Then 'condition : si la cellule est supérieure à la date du jour
On Error GoTo ici 'si c'n'a pas encore été défini, va à la balise 'ici'
Set c = Application.Union(c, cel) 'définit la variable c
GoTo après 'va à la balise après
ici:
Set c = cel 'définit la variable c
après:
End If 'fin de la condition
Next cel 'prochaine cellule de la plage A2:N2
Label1.Caption = Format(Application.WorksheetFunction.Min(c), 'dd/mm/yyyy')
End Sub