Microsoft 365 Copier à tour de rôle les éléments d'une liste vers une même cellule

[flint125]

Bonjour,

j'ai une liste de données qui commence en J2 et qui peut s'extentionner jusqu'à J25 et même des fois jusqu'à J100, donc variable. J'ai une mise en forme dans le même onglet qui dépend de la valeur de la cellule "F2". J'aimerais avoir une macro qui:

1- copie J2 vers F2 et se repositionne en J3 (ne fait rien jusqu'à ce que j'appuie une 2e fois sur le bouton)
2 - copie J3 vers F2 et se repositionne en J4 (ne fait rien jusqu'à ce que j'appuie une 3e fois sur le bouton)
3 - copie J4 vers F2 et se repositionne en J5 (ne fait rien jusqu'à ce que j'appuie une 4e fois sur le bouton)
etc. jusqu'au dernier élément

Quelqu'un peut m'aider ?

 

[flint125]

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