bonjour
j'ai un autre souci
j'ai deux feuille qui contiennent les memes infos sauf que la feuille 2 indique payé ou non sur la ligne
ce que je voudrai faire c supprimer les lignes de la feuille 1 qd la colonne 4 (payé ou non ) de la feuille 2 indique que c payé

comment pourrai je faire
mon prog ne marche pas vmt
je vous montre 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
19
20
21
22
23
24
Sub supprimer_lignes()
 
i = 2
j = 2
 
 
 
Do While Feuil2.Cells(i, 1) <> ""
 
 
      If Feuil2.Cells(i, 4).Value <> "Non payé" Then
        Feuil1.Rows(j & ":" & j).Delete Shift:=xlUp
        j = j + 1
      GoTo line1:
        End If
 
 
line1:
 
i = i + 1
 
Loop
 
End Sub

merci pour votre aide