J'ai un tableau avec une colonne [GM]. Je cherche à retirer toutes les ligne qui ont un 0 dans cette colonne.

j'ai fait:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
LigneFin = Application.WorksheetFunction.CountA(Columns(2))
macol = NumCol("[GM]")
For I = 1 To LigneFin
    If Cells(I, macol).Value = "0" Then
        Cells(I, macol).EntireRow.Delete
        End If
Next
La fonction NumCol() est juste une fonction qui me donne le numéro de la colonne contenant le string passé en paramètre.

Mon problème c'est que mon script me laisse toujours un ligne qui a un 0 et si je relance ma macro elle la retire... je ne voit pas ce que j'ai fait de travers... -_-