Hello,
Mon objectif est de sélectionner les lignes qui contiennent le mot Depense dans une liste, puis de copier les lignes correspondantes et de les coller sur une autre feuille.
J'ai donc crée une boucle For pour parcourir ma liste mais je rencontre un problème, j'ai l'impression que la macro copie seulement la 1ere ligne où il rencontre le mot Depense puis colle plusieurs fois cette ligne.
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
If ComboBox1.Value = "Depense" Then
    Set ts = ThisWorkbook.Sheets("Gestion")
    Der_Ligne = ts.Cells(Rows.Count, "A").End(xlUp).Row 'Dernière ligne de la feuille Gestion
    Der_LigneD = Sheets("Depense").Cells(Rows.Count, "A").End(xlUp).Row
 
    iLigne = 1
    For i = 1 To Der_Ligne
        If ts.Cells(iLigne, "D").Value = "Depense" Then 'Verifie la valeur Recette dans la colonne
            Der_LigneD = Der_LigneD + 1
            ts.Range("A" & iLigne & ":E" & iLigne).Copy _
            Destination:=Sheets("Depense").Cells(Der_LigneD, "A")
           ' UserForm3.Hide
            'ThisWorkbook.Sheets("Depense").Select
       Else
        iLigne = iLigne + 1
       End If
    Next
Merci de votre aide