Option Explicit
Dim DerLgn As Integer
Dim Lgn As Integer
Dim StrWord As String
Dim Nbr As Integer
Public Sub test()
With Feuil1
Nbr = .Cells(3, 10) 'On récupére le Nombre de fois
StrWord = .Cells(5, 2) 'oN récupére le texte
If StrWord = "" Then Exit Sub 'si pas de texte on quitte
With .Range(.Cells(5, 1), .Cells(10000, 2)) ' avec la plage ainsi définie
.ClearContents 'on l'efface
.Cells(1, 1).Resize(, 2) = Array(1, StrWord)'On colle dans la première plage cible
End With
For Lgn = 2 To Nbr 'pour chaque ligne de la deuxième à la X
DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'on détermine la cligne cible
.Cells(DerLgn, 1).Resize(, 2) = Array(Lgn, StrWord) 'on colle dans la plage ainsi définie les éléments
Next Lgn
End With
End Sub