copie incréméntée

[alain]

J'ai un liste de 3000 données numériques.
Comment faire pour copier les données de la première liste avec un pas de 5.
Autrement formulé , je veux étalir une deuxiéme liste qui sera constituée par les données de la première liste choisies toutes les 5 lignes.
Merci par avance

 

[alain]

Bonsoir,

Supposons que la 1ère liste commence en "A1" et la 2ème liste en "B1"

Sub Recopie()
j = 0
For i = 0 To 3000 Step 5
Range("B1").Offset(j, 0) = Range("A1").Offset(i, 0)
j = j + 1
Next
End Sub

@+.

 

[alain]

Merci pour la réponse, ça marche super bien.....!