[VBA-E] Selection et copy de lignes conditionelle.

Bonjour,

Je souhaiterai réaliser une copy des lignes (de la cellule "A" jusqu'a "J")que si dans la colonne "M:M" il y a le texte "NO". Sachant que dans la liste de données il peut avoir plusieurs "NO" comme aucun. De plus je voudrai coller ces valeurs a la fin d'un autre onglet.
Pour l'instant j'ai fait le code suivant, mais cela ne fonctionne pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub toto() Sheets("Extract IO").Select Dim j As Integer j = 2 While Not Cells(j, 13) = "" If Sheets("Extract IO").Cells(j, 13) = "NO" Then Rows(a & j, k & j).Copy Sheets("Base IO").Select Range("A1").Select Selection.Insert Shift:=xlDown Else j = j + 1 End If Wend End Sub

plutôt

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub toto()
 
Dim j As Integer
    j = 2
    While Len(Sheets("Extract IO").Cells(j, 13).Value) > 0
          If Sheets("Extract IO").Cells(j, 13) = "NO" Then
             Sheets("Extract IO").Range(Sheets("Extract IO").Cells(j, 1), Sheets("Extract IO").Cells(j, 10)).Copy
             Sheets("Base IO").Range("A1").Insert Shift:=xlDown
          End If
          j = j + 1
    Wend
End Sub

Ok ca fonctionne, je te remercie pour ton aide.