* Bonjour, *

J'aimerai faire une boucle qui me dis :
- Si chiffre dans la colonne B supérieur à l'année actuel et si le nom que l'on tape dans un textbox = true dans la colonne C

- ALors on supprime cette ligne

- Le faire tant que le "si" est vrai


voilà se que j'ai fait mais je m'embrouille:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For i = 9 To 5000
 
             Set Rg3 = Sheets("Bilan").Range("C:C").Find(what:=UserForm4.TextBox1.Text, lookat:=xlWhole)
 
 
             If Sheets("Bilan").Range("B" & i).Value > CStr(Year(Now)) &  Rg3 = true Then
 
                Sheets("Bilan").Row(i).Delete
 
 
            'End If
 
        Next i
Ca ne fonctionne pas je sais pas pourquoi !

* Merci *