Bonjour Naubin, Bonjour le Forum,
Si on prend pour exemple que c'est en cliquant sur ta cellule F13 que la donnée au dessus est recopiée, alors tu peux utiliser les codes ci-dessous.
A coller dans la feuille où il y a ton bouton :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$13" Then
Call Macro1
End Sub
A coller n'importe où :
Sub Macro1()
Selection.FillDown
End Sub