Sub Rectangleàcoinsarrondis1_Clic()
Application.ScreenUpdating = 0: Application.EnableEvents = 0
NbLignes = Cells(Rows.Count, 5).End(xlUp).Row
For Ligne = 3 To NbLignes
If Cells(Ligne, 5) <> "" And Cells(Ligne, 7) = "" Then
If Cells(Ligne, 5) - Date <= Cells(18, 10) Then
EnvoiMail (Ligne)
Cells(Ligne, 7) = "mail envoyé"
End If
ElseIf Cells(Ligne, 5) <> "" And Cells(Ligne, 7) = "mail envoyé" Then
If Cells(Ligne, 5) < Date Then
EnvoiMail (Ligne)
Cells(Ligne, 7) = "deuxième mail"
End If
End If
Next Ligne
Application.ScreenUpdating = -1: Application.EnableEvents = -1
End Sub