Supp ligne

Salut

Je voudrais garder les Cellules vide et celles qui contiennent des dates c.a.d. que je voudrais supprimé les cellules qui contiennent des chaîne de caractéres (autres que des Dates)

voici mon code :

Sub zef()

Dim count As Integer

For count = 76 To 87
   If Cells(count, 12).Value <> "" AND Cells(count, 12).Value<>Date Then
            Rows(count).Delete
    End If
Next count

En faite je ne sait pas comment désigné une cellules qui contient une date

PS: toutes mes cellules sont au format date donc le CDate c mort

merci