Afficher une cellule "x" fois

Bonjour,

Je voudrais savoir si il est possible d'afficher ce qui se trouve dans une cellule X fois dans d'autres cellules.

A2 = "Texte 1"

A3 = "Texte 2"

B1 = Nombre de fois que le résultat s'affiche

de D2 à DX "Texte 1" dans chaque cellule

Exemple :

A2 = Frite

A3 = pomme

B1 = 20

D2 à D20 = Frite

D21 à D41 = Pomme

Merci d'avance,

Bonjour,

Par un code VBA.

Essaie ceci :

Sub repete()
Dim Cel As Range
Columns(4).Clear
For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If Cel <> "" Then Cells(Rows.Count, 4).End(xlUp)(2).Resize([B1]).Value = Cel
Next Cel
End Sub

Bonne soirée

Un grand merci ça fonctionne très bien !