Bonjour à tous même si je n'ai pas eu de réponse, au final j'ai trouvé donc je vous communique les éléments (pensez à créer une dim) :
'Copier la ligne séléctionné
Selection.Copy
'Coller la ligne autant de fois que la valeur
Do While nbdefois2 <= BOR.Cells(1, 12).Value
BOR.Cells(BOR.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=False
nbdefois2 = nbdefois2 + 1
Loop
Bon courage