Bonjour,

J'ai un tableau excel avec plusieurs lignes.
J'aimerais simplement déplacer certaines lignes de ce tableau vers une autre feuille à condition que la valeur d'une colonne soit égale à une certaine valeur.

Voici le code que j'ai fait mais j'ai une erreur à l'exécution

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
25
26
Sub CopyToFeuille2()
    Dim wsSource As Worksheet
    Dim wsCible As Worksheet
    Dim derniereLigne As Long
    Dim tmpLigne As Long
    Dim i As Long
 
    Set wsSource = Worksheets("Feuil1")
    Set wsCible = Worksheets("Feuil2")
 
    tmpLigne = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
 
    'On récupère la dernière ligne remplie
    derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
    'Pour chaque ligne du fichier source
    For i = 1 To derniereLigne
        'Si la colonne H contient "signé" --> deplacer vers Feuil2
        If wsSource.Cells(i, "H").Value = "signé" Then
            wsSource.Range("A:H" & i).Copy wsCible.Range("A:H" & tmpLigne)
            wsSource.Range("A:H" & i).ClearContents
 
            tmpLigne = tmpLigne + 1
        End If
    Next i
End Sub
Merci pour votre aide