Cette fois ci, je souhaite qu'un message affiche les contenus des cellules en colonnes 4 lorsque la date en colonne 5 est supérieures à la date de la colonne 6.
Un message type serait "Attention, problème de date sur A15E, D18T, M32F".
Sub essai()
For Each cel In Range("D1:D" & [D65000].End(xlUp).Row)
If cel.Offset(, 2) < cel.Offset(, 1) Then tablo = tablo & vbLf & cel
Next cel
MsgBox "Attention, problème de date sur " & tablo
End Sub