Problème exécution macro

Bonjour, j'ai besoin de votre aide!!!!

Sur VBA depuis 2 jours, je souhaite adapter cette macro pour qu'elle ne commence à s'exécuter qu'à partir de la ligne 6 ou cellule A6 à l'assemble de mon tableau:

With ThisWorkbook.Sheets("GLOBAL")

' nom feuille

For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1

'colonne a

If .Range("A" & i).Value = "facture" then

.Rows(i).Delete

End If

Next i

End With

Merci beaucoup

Bonjour

With ThisWorkbook.Sheets("GLOBAL")
' nom feuille
Range("A6:A" & [A65000].End(xlUp).Row).Select
For i = 1 to Selection.Rows.Count
'colonne a
If .Range("A" & i).Value = "facture" then
.Rows(i).Delete
End If
Next i
End With

Cordialement

Merci, mais j'ai ce message???

erreur syntaxe sur cette ligne: For i = Selection.RowCount

Je ne sais pas quoi faire .

Merci

Bonjour ahchem, Amadéus, le forum,

Un essai avec le fichier ci-joint (réalisé sous Excel 2013, et sauvegardé sous Excel 97-2003).

Cordialement,

André

Bonjour

With ThisWorkbook.Sheets("GLOBAL")
    For Each Cel In Range("A6:A" & [A65000].End(xlUp).Row)
    If Cel = "facture" Then Cel.EntireRow.Delete
    Next Cel
    End With

Cordialement

Merci beaucoup Amdeus ça fonctionne super bien