XL 2016 Supprimer des lignes en vba sous condition

Option Explicit
Dim Ws As Worksheet
Dim DerLgn As Integer
Dim Lgn As Integer
Sub test()
 Application.ScreenUpdating = False
    With ThisWorkbook 'avec le Classeur
      For Each Ws In .Worksheets 'pour chaque feuille du Classeur
       With Ws 'Avec la feuille
        If .Name Like "Sheet#" Then 'si le nom de la feuille est Sheet suivi d'un Chiffre ex : Sheet1 ,2  pour l'exemple
          DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row 'on détermine la dernière ligne non vide de la Colonne A
          If DerLgn = 1 Then Goto Suite  'Si ligne = 1 pas de donnée on passe a l'autre feuille
            For Lgn = DerLgn To 2 Step -1 'pour chaque ligne en partant du Bas
             If .Cells(Lgn, 9) Like "FR*" Then 'Si la Cellule  commence pas par "FR" on ne fait rien
               Else 'Si la Cellule de la Colonne 9 ,ne commence pas par "FR"
                      .Cells(Lgn, 9).EntireRow.Delete           'on supprime la Ligne
             End If
            Next Lgn
        End If
       End With
suite :
      Next Ws
    End With
 Application.ScreenUpdating = True
End Sub