OK CAS RÉSOLU VOICI LE CODE, J'AI REUSSI EN 2 MACROS
Sub Macron()
'Se déplacer de 1 ligne vers le bas
ActiveCell.Offset(1, 0).Select
End Sub
Sub Macron3()
'Revenir à la cellule d'origine après le copier-coller
Set ici = ActiveCell
ici.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ici.Select
End Sub