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