Suppression de ligne si pas date

Bonjour à tous,

le télétravail nous oblige à se passer des collègues...

Je suis néophyte en VBA.

Je dois épurer une vingtaine de fichiers excel.

j'aurais besoin d'une macro qui supprime toutes les lignes d'un fichier dont la colonne "A" ne contient pas une date au format JJ/MM/AAAA.

Alors si quelqu'un peut venir à mon secours....

Merci beaucoup !

René.

Bonjour Rnxisma, le forum,

Un essai....

Sub SuprimLig()
 Dim derlig
     derlig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

     Application.ScreenUpdating = False

  For i = derlig To 2 Step -1
    If Not IsDate(Cells(i, "A")) Then
     Rows(i).EntireRow.Delete
    End If
  Next i
End Sub

Cordialement,

Bonsoir à tous,

Merci à xorsankukai.

Ca fonctionne parfaitement.

Je vais affiner pour inclure ce script dans ma macro générale, histoire de bien optimiser ce type de tâche.

Je viens de découvrir ce forum, et je crois bien que je vais devenir accro.

Bonne continuation à tous,

René.