Bonjour
Bonjour Amadeus
Si j'ai compris, à tester
Sub Test()
Dim Ligne As Long, Result As Long
Result = 1
With Worksheets("Feuil1")
For Ligne = 1 To .Range("A" & Rows.Count).End(xlUp).Row Step 3
.Range("D" & Result) = .Range("A" & Ligne)
Result = Result + 1
Next Ligne
End With
End Sub