Bonjour à tous,

J'ai besoin de votre aide pour comprendre une manipulation qui ne fonctionne qu'une fois. Je m'explique:

Après avoir entré des écritures sur une journal coptable, je dois les basculer sur le journal de banque.
Jusque là, tout va bien.
Mais certaines écritures ne nécessite pas d'être enregistrées dans le journal de banque, donc un ligne vide se créé et se positionne en bas du tableau;
Je sais la répérer, enfin je crois, et j'arrive la supprimer à la première écritures.
Mais au second passage, j'ai une erreur "Variable objet ou variable de bloc With non définie."

Voici les lignes incriminées:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 ws_Rapproche.Range("Nbr_Banque").FormulaR1C1 = "=COUNTA(C[-13])" 'Remise à zéro du compteur de ligne tableau
    zi_Nb = ws_Rapproche.Range("Nbr_Banque").Value + 1 'Variable utilisée pour la suppression
    If ws_Rapproche.Range("B" & zi_Nb) = "" Then 'Si la cellule B est vide alors
        Selection.ListObject.ListRows(zi_Nb - 4).Delete 'Je supprime la ligne concerné. Le tableau commence à la ligne 4 donc (Compteur -4)
    End If
Qu'en pensez-vous ?
Merci par avance pour votre aide.
Vincent