Bonjour,
dans le code ci dessous, il ne prend qu'une ligne sur 2. Pourquoi?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 For i = 1 To Range("A65536").End(xlUp).Row If Range("A" & i).Value = 3 Then Range("A" & i).EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2) Range("A" & i).EntireRow.Delete End If Next i
Partager