Sub Dupliquer_III()
Dim vArray
Dim i&, LigA&, NB_Dupli&, strC$
vArray = Range("A2:A108")
Range("A2:A108").ClearContents
LigA = 2
NB_Dupli = 29
For i = 2 To UBound(vArray, 1)
strC = vArray(i, 1)
Range("A" & LigA & ":A" & LigA + NB_Dupli).Value = strC
LigA = LigA + NB_Dupli + 1
Next
End Sub