Suppression lignes si cellule contient une date

Bonjour le forum,

J'ai besoin d'une macro qui supprime les lignes ou apparaissent des dates.

Ci joint un exemple plus explicite

Merci pour votre précieuse aide

Bonjour,

Utilise le code suivant :

Sub supprimerLig()
    derLig = ActiveSheet.UsedRange.Rows.Count
    For i = derLig To 1 Step -1
        If IsDate(Cells(i, "B")) Then
            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub

Merci beaucoup Raja