Repeter une macro (décaler) au clic

Bonjour à toutes et tous,

Je suis toujours sur le même problème et j'essaie de le prendre différemment.

Ce que je souhaite faire, c'est qu'à chaque clic sur une bouton de commande, 2 cellules d'un tableau viennent se coller sur 2 cellules d'un autre tableau, sachant qu'il faut descendre d'une ligne du premier tableau à chaque clic.

Voici un début de code, mais je n'arrive pas à définir "automatiquement" les nouvelles cellules à copier

Sub offset()

'1er clic
Range("A2:B2").offset(1, 0).Select
Selection.Copy Destination:=Range("G3:H3")

'2nd Clic
Range("A3:B3").offset(1, 0).Select
Selection.Copy Destination:=Range("G4:H4")

'etc jusqu'à la dernière ligne

End Sub

Quelqu'un peut m'aider ?

Merci beaucoup et bonne fin de journée

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour GMB,

Merci pour ton aide,

Cela fonctionne, mais je souhaiterai te donner davantage de détails sur ce que je souhaite faire.

Je te propose ce fichier en exemple.

Peux tu m'aider encore un peu ?

Merci à toi

Bonjour

Nouvelle version

Bye !

Bonjour GMP,

un milliard d'excuses pour ma réponse tardive. Un grand merci pour ta solution. Je n'ai pas encore réussi à l'adapter à mon fichier mais cela devrait aller.

Encore merci à toi