Fonction qui fait référence à plusieurs cellules activées avec CTRL

Bonjour, j'aimerai savoir s'il existe une fonction/manière de remplir plusieurs cellules sélectionnées avec CTRL sans les déclarées dans le code. L'exemple est assez parlant. Le bouton renseigne le username dans une cellule sélectionnée mais je n'arrive pas à le faire quand je sélectionne plusieurs cellules. Cela me laisse la liberté de mettre le nom ou je veux car si je déclare un emplacement dans le code vba, je devrais changer à chaque fois dans le code avant de lancer la macro.

Merci

Bonjour Fabien972,

Une proposition :

Sub test()
    Dim x As Range
    Set x = Selection
    x.Value = Application.UserName
End Sub

Bonjour à tous,

la même en plus court :

Sub NomAuto()
        Selection.Value = Application.UserName
End Sub

eric

Un grand merci à vous pour votre aide !