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 : Sélectionner tout - Visualiser dans une fenêtre à part
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