Macro dans cellule active

Bonjour,

J'aimerai effectuer une macro dans une cellule sélectionné, j'active cette cellule et je lance la macro.

Dans la macro je n'ai rien mis dans Range car je veux que c'est la cellule là où j'ai cliqué.

Pouvez-vous m'aider ?

Sub Macro1()
'
' Macro1 Macro
'
    Sheets("Feuil1").Select
    Range("").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00"
End Sub

Bonsoir Io-de

Il faut utiliser, une des base de VBA, les évènements

https://www.excel-pratique.com/fr/vba/evenements_classeur

A+

Merci ça fonctionne avec ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00"
End Sub