Dim I As Long, Valeur As Long Valeur = Range("A1") 'Prendre la valeur là où elle est '32 est la 1ere ligne vide '21 est la longueur de la plage à copier et le pas à chaque copie For I = 32 To 21 * Valeur Step 21 Rows("11:31").Copy Range("A" & I) Next