Creer un message d'erreur sous excel [Résolu]

Sub TestCellule()
Dim cl As Range
Dim maDate As Variant
Dim str As Variant
Dim ok As Boolean
'
'On teste si il n'y a pas de cellule vide dans la plage
'Si une cellule est vide on informe l'utilisateur et on sort de la procédure
For Each cl in Worksheets("Feuil1").Range("B2:F30")
   If cl.value = "" Then
      MsgBox "Une cellule n'est pas renseignée",Vbexclamation,"Message Erreur"
      cl.Activate
      Exit Sub
   End If
Next cl

'On compare les dates contenues dans la plage
'avec la date de référence
maDate = Worksheets("Feuil1").Range("A1").value
For Each cl in Worksheets("Feuil1").Range("B2:F30")
     'on recupère la valeur de la cellule dans str
     str = cl.value
     If IsDate(str) = True Then
        If str < maDate Then
           MsgBox "La date est inférieure à " & maDate
           ElseIf str = maDate Then
               MsgBox "La date est égale à " & maDate
               ElseIf str > maDate Then
                  MsgBox "La date est supérieur à " & maDate
        End If
    End If
Next cl
End Sub