Option Explicit
Sub essai2()
Dim i As Long
Sheets("Feuil1").Activate
For i = 3 To 65000 Step 3
If Cells(i, 3) = "" Then Exit Sub
If Cells(i, 2) <> "" Then
Cells(i, 3).Copy Sheets("Feuil2").Cells(i, 9)
End If
If Cells(i, 5) <> "" Then
Cells(i, 6).Copy Sheets("Feuil2").Cells(i, 10)
End If
Next i
End Sub