Bonjour,

Dans un tableau, je souhaite supprimer toutes les lignes contenant la chaine de caractères ÉÍ
Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Edit_C11_Mise_en_forme()
 
    NOMFICH = Application.InputBox(Prompt:="Nom du fichier : ", Type:=2)
    Workbooks(NOMFICH).Activate
 
' Recherche du nombre de lignes dans la feuille
    Nbligne = Range("A" & Rows.Count).End(xlUp).Row
 
' Suppression ligne contenant ÉÍ
    Dim Vligne As Range
    For WJ = 1 To Nbligne
        If Vligne Like "ÉÍ" Then Vligne.Rows.Delete
    Next WJ
 
'Enregsitrement du fichier
     ActiveWorkbook.Save
 
End Sub
Lorsque je lance la macro j'ai le message d'erreur "Erreur d'exécution 91, Variable objet ou variable bloc With non définie"
L'erreur est sur l'instruction If Vligne Like "ÉÍ" Then Vligne.Rows.Delete

Pourquoi ? Que dois-je faire?


Je vous remercie.