Supprimer les cellule qui comporte 3 caractéres et commence par le chiffre 9

Option Explicit
Sub kenza()
Dim dL As Long
Dim pL As Long
Dim nL As Long
Dim tx As String
  With Worksheets("Feuil1")                       ' adapter au nom de la feuille
    dL = .Cells(.Rows.Count, "A").End(xlUp).Row   ' adapter au nom de la colonne
    pL = 2                                        ' adaptter au numéro de la première ligne
    For nL = dL To pL Step -1
      tx = .Cells(nL, "A").Text                   ' adapter au nom de la colonne
      If Len(tx) = 3 And Left(tx, 1) = "9" Then
        .Rows(nL).Delete
      End If
    Next nL
  End With
End Sub