Sub VerifierRelance()
Dim textemsg as string
LIGNE = Sheets("BDD").Range("A65536").End(xlUp).Row 'indique la dernière ligne du tableau de l'onglet OPERATION
For i = 2 To LIGNE ' Boucle à répéter de la ligne 2 à la dernière ligne
If Range("F" & i) <> "" And Range("F" & i) < Now Then 'indique si la date de relance est dépassée
textemsg = textemsg & iif(i>2,chr(10),"") & "Relancer le dossier " & Range("A" & i) End If
Next i
MsgBox textemsg , vbExclamation, "RELANCE"
End Sub