Sub test()
Dim Mes_Cellules As Range, Une_Cellule As Range, t$
Set Mes_Cellules = Range("L10:L100")
For Each Une_Cellule In Mes_Cellules
If IsEmpty(Une_Cellule) Or Not IsDate(Une_Cellule) Then
t = t & Une_Cellule.Address(0, 0) & vbLf
End If
Next
MsgBox "Renseigner une date dans les cellules suivante(s)." & vbLf & t
End Sub