[XLS-2016]Macro suppress de lignes avec conditions

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
End Sub
Sub VerifierNombres()
' par Excel-Malin.com - https://excel-malin.com
On Error GoTo Erreur
Dim MonNombre As Variant

'choisir l'expression à tester
'MonNombre = "12345"
'MonNombre = "007"
'MonNombre = "1A45"

'procéder au test et indiquer des actions à effectuer
If IsNumeric(Var) = True Then
    'votre code si expression est numérique
       ' MsgBox "L'expression est un nombre"
      If Len(Var) = 6 Then
Else
        Rows(NoLig & ":" & NoLig).Delete 
        End If
Else
    'votre code si expression n'est pas numérique
      '  MsgBox "L'expression n'est pas un nombre"
End If

Exit Sub
Erreur:
MsgBox "Une erreur s'est produite..."
End Sub
Sub For_X_to_Next_Ligne()
'https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
Set FL1 = Worksheets("Feuil1")
    NoCol = 6 'lecture de la colonne F
    For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
         VerifierNombres
    Next
    Set FL1 = Nothing
End Sub