Sub essai()
Dim c As Range, n As Long, x As Long, ligne As Long
ligne = 1
For n = 2 To 42
Range("A" & n) = n - 1
Next n
x = 5
While Range("A65536").End(xlUp).Row > 2
For n = x To Range("A65536").End(xlUp).Row Step 2
[B][COLOR=Red]Set c = ActiveSheet.Columns.Find(Range("A" & n), LookIn:=xlValues, lookat:=xlWhole)[/COLOR][/B]
If Not c Is Nothing Then
Sheets("Feuil2").Cells(ligne, 1) = Range("A" & n)
Rows(c.Row).Delete
End If
Next n
MsgBox (n)
ligne = ligne + 1
x = n - Range("A65536").End(xlUp)
Sheets("Feuil2").Select
MsgBox ("voir")
Sheets("Feuil1").Select
MsgBox ("vois")
Wend
End Sub