Convertir dates MJA avec une macro

Bonjour,

J'ai fait une macro avec l'enregistreur et j'aimerais la modifier pour que lorsque j'appuie sur le raccourci CTRL +N que ce soit la sélection en cours qui soit converti et non pas la colonne G puisque cela peut se produire sur différentes colonnes dans mes rapports. Je ne suis pas trop habile à modifier le format d'une macro.

Merci beaucoup!


Sub ConvertirMJA()
'
' ConvertirMJA Macro
'
' Touche de raccourci du clavier: Ctrl+n
'
Columns("G:G").Select
Selection.TextToColumns Destination:=Range( _
"Tableau1[#Headers,[Invoice Date]]"), DataType:=xlFixedWidth, FieldInfo:= _
Array(0, 3), TrailingMinusNumbers:=True
End Sub