Private Sub Worksheet_Change(ByVal Target As Range)
Dim duplicateur As Range, resu As Range, n&
Set duplicateur = [C2]: Set resu = [E2]
If Intersect(Target, duplicateur) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If duplicateur Then
For n = 2 To [A1].CurrentRegion.Count
Cells(n, 1).Copy resu.Resize(duplicateur)
Set resu = resu(duplicateur + 1)
Next
End If
resu.Resize(Rows.Count - resu.Row + 1).Clear
End Sub
=""&INDEX(A:A;2+ENT((LIGNE()-2)/C$2))