'Rappel d'échéances visites VGP
Dim T_Date, Msg As String, cel As Range
T_Date = Date
For Each cel In Feuil3.Range("D3:D12")
If T_Date >= cel.Value Then
Msg = "Attention, il y a des dates à échéance de VGP dépassées"
Exit For
End If
Next
If Msg <> "" Then MsgBox Msg
'End Sub
'Rappel échéances remplacement filet
Dim L_Date, Msg2 As String, cel As Range
L_Date = Date
For Each cel In Feuil9.Range("N3:N550")
If L_Date >= cel.Value Then
Msg2 = "Attention, il y a des dates à échéance du remplacement du filet dépassées"
Exit For
End If
Next
If Msg2 <> "" Then MsgBox Msg
End Sub