test sur des dates

Bonsoir,
voila le code que j'ai mis sur une feuille
lorsque je fais F8 il passe de la ligne 16 a la fin
alors que date du jour est bien inferieure a DS
ou est mon erreur Merci
Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response, MyString
Dim DS, DJ ' definit la date de sortie et du jour
Msg = "Attention vous allez effacer !!!" & Chr(10) & Chr(10) & "les
participants" & Chr(10) & _
Chr(10) & "Voulez vous continuer ?" ' Définit le message.
Style = vbYesNo + vbExclamation + vbDefaultButton2 ' Définit les
boutons.
Title = "Procedure d'effacement en cours ... " ' Définit le titre.
DJ = Date ' date du jour
DS = CDate([H1]) ' 23 fevrier 2007
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui"
If DJ < DS Then
MsgBox " Désolé vous ne pouvez pas" & Chr(10) & " la date est
inférieure au : " & [H1] & "", vbOKOnly + vbCritical
MsgBox "A Bientôt" & Chr(10) & " dans :" & Chr(10) & [AF1] & "
jours"
ElseIf DJ = DS Then
With Sheets("toto")
With .Range("D4:E1000")
'.ClearContents
End With
End With
Sheets("zaza").Select
' Effectue une action.
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
Sheets("zaza").Select
End If
End If
End Sub

--
andre

Bonsoir.
Avec "23/02/2007" (sans les guillements) et au format date, je ne reproduis
pas le problème. Quelle est la valeur de H1 et celle de la date de ton
système ?
Cordialement.
Daniel