DUPLIQUER X fois une cellule sur UNE LIGNE

Bonsoir à tous,

Je cherche un code VBA pour dupliquer X fois (Nombre indiqué dans une cellule => Ex. A1) une autre cellule (ex. B1) sur la même ligne en commençant par exemple par la cellule D1.

J'ai trouvé plusieurs codes mais avec duplication uniquement sur une colonne.... je les ai triturés mais je n'arrive pas à les finaliser sur une ligne.

A vous relire et merci d'avance.

Bonjour,

Un exemple :

Public Sub DEMO()
Dim i As Long
    For i = 1 To Cells(1)
        Cells(1, 3 + i) = Cells(2)
    Next
End Sub

Bonsoir Jean-Eric

Super .... Comme d'habitude "Efficace"

Meric