Sub copier()
Range("Ref").Copy Destination:=Sheets("Feuil3").Range("A2")
Range("New").Copy Destination:=Sheets("Feuil3").Range("A" & Range("Ref").Count + 2)
For i = Range("Ref").Count + 2 To Range("Ref").Count + Range("New").Count + 1
Cells(i, 2) = "X"
Next i
End Sub