Appliquer la même macro à des colonnes que je selectionne

Bonjour à tous,

je souhaite appliquer la macro ci dessous à différentes colonnes que je sélectionne:

Sub Transf_nbre()
'
' Transf_nbre Macro
'
    Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

J'ai crée cette macro à l'aide de l'enregistreur mais elle ne fonctionne qu'avec la colonne E.

Comment puis je faire pour que cette dernière s'exécute à la colonne sélectionnée?

Merci de votre aide.

Bon réveillon et bonnes fêtes à tous.

Bonjour et Joyeux Noêl

On ne sait comment tu veux activer la procédure :

• Soit tu prévois un bouton à actionner après sélection
• Soit tu gères l'évènement Worksheet_SelectionChange de la feuille concernée

On ne sait si tu agit sur une cellule E1 ou une colonne (toute la colonne E)

Dans ce dernier cas remplacer "E1" par Range(Selection.Address) devrait fonctionner