Sub CopyCells()
Dim i As Long
Dim j As Long
Dim lastrow As Long
lastrow = Feuil1.Cells(Rows.Count, "B").End(xlUp).Row
j = 6
For i = 6 To lastrow Step 2
With Feuil1
.Cells(j, 11).Value = .Cells(i, 6).Value
.Cells(j, 14).Value = .Cells(i, 9).Value
End With
j = j + 1
Next i
End Sub