"Sub Macro1()
Dim o As Object 'déclare la variable o (Onglet)
Dim i As Byte 'déclare la variable i (Incrément)
Dim dl As Byte 'déclare la variable dl (Dernière Ligne)
Set o = Sheets("A") 'définit l'onglet o
dl = o.Cells(1, 1).End(xlDown).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
For i = 1 To dl 'boucle des lignes 1 à dl
o.Rows(i).Copy o.Rows(14) 'copie la ligne i en ligne 14
o.Cells(15, 6).Copy o.Cells(i, 6) 'copie F15 et le colle en F de i
Next i 'prochaine ligne de la boucle
End Sub