Copier/coller autant de fois qu'une celulle l'indique

Bonjour,

regarde comme cela voir si c'est ce que tu cherches

Option Explicit

Sub Copier_Coller_X_Fois()
Dim Val, Cop As Integer
Val = Range("B2").Value
Range("B2").Copy
With ActiveSheet
For Cop = 1 To Val
.Paste Destination:=.Range("B2").Offset(0, Cop)
Next Cop
End With
Application.CutCopyMode = False
End Sub

Re,

initialement il s'agissait de copier la cellule B2 autant de fois que la valeur contenue, ce qui change tout
regarde ce code pour la plage B2 à B100

Option Explicit

Sub Copier_Coller_X_Fois()
Dim Val, Cop As Integer
For i = 2 To 100
Val = Cells(i, 2).Value
Cells(i, 2).Copy
With ActiveSheet
For Cop = 1 To Val
.Paste Destination:=.Cells(i, 2).Offset(0, Cop)
Next Cop
End With
Next i
Application.CutCopyMode = False
End Sub