MACRO EXCEL CONVERSION DONNÉES

Bonjour,

je suis débutant sur les Macros Excel et je souhaite faire une Macro me permettant de convertir des données avec une largeur fixe, mais lors de la création de la MAcro tout marche correctement mais quand je veux la ré-exécuter il ne prend pas en compte la colonne (BN) choisi.
Si un bon samaritain peut m'aider d'avancer merci!!!

Sub TESTDONNEES()
'
' TESTDONNEES Macro
'

'
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.TextToColumns Destination:=ActiveCell.Offset(0, 7).Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(13, 1), _
Array(20, 1)), TrailingMinusNumbers:=True
End Sub