Aide macro suppression de ligne

Bonjour,

Je cherche a faire une macro qui supprime chaque ligne dont la première cellule ne contient pas exactement 9 caractères ( que des chiffres ). J'ai essayer beaucoup de choses mais sans succès.

Merci d'avance à ceux qui prendront du temps pour m'aider.

Bonsoir Ducat03, le forum,

Un exemple ci-joint....si la valeur en colonne A ne contient pas 9 caractères où si ce n'est pas un nombre, on supprime la ligne.

Sub Bouton1_Cliquer()
 Dim i As Integer, dl As Integer
  dl = Range("A" & Rows.Count).End(xlUp).Row '............................................dernière ligne utilisée en colonne A
   Application.ScreenUpdating = False
    For i = dl To 2 Step -1 '.............................................................boucle de la dernière ligne à la deuxième
     If Len(Range("A" & i)) <> 9 Or Not IsNumeric(Range("A" & i)) Then Rows(i).Delete '...si le nombre de caractère est différent de 9 où si ce n'est pas un nombre: on efface la ligne
    Next i
 End Sub

Cordialement,

Merci beaucoup sa marche nickel !! :)