Private Sub UserForm_Initialize()
Dim T(), NbL As Long, L As Long, NbRetard As Long, DateLim As Date
NbL = Feuil2.[A65000].End(xlUp).Row - 1
T = Feuil2.[A2:F2].Resize(NbL).Value
Me.Label3.Caption = Format(Date, "dddd dd mmmm yyyy")
DateLim = Date - 10
For L = 1 To NbL
If IsDate(T(L, 3)) And Not IsDate(T(L, 5)) Then If T(L, 3) > DateLim Then NbRetard = NbRetard + 1
Next L
If NbRetard > 0 Then Me.TextBox1.Text = "Bonjour. vous avez " & NbRetard & " commandes en retard."
End Sub