Insérer une macro dans un code VBA

Bonjour,

Voilà je suis à tout jeune débutant et je n'arrive pas à trouver comment résoudre mon problème. Je m'explique, j'ouvre deux fichiers en début et je souhaiterais mettre en forme un des tableaux Excel.

Ouverture ==>

Private Sub CommandButton1_Click()

' Déclaration des Variables
Dim ws As Worksheet
Dim Fichier1, Fichier2
Dim Chemin_Fichier As String
Dim Fichier1 As String
Dim Fichier2 As String


Chemin_Fichier = "C:\Documents and Settings\JohnKela\Mes documents\fichier\"
Fichier1= "Excel1.xls"
Fichier2 = "Excel2.xls"

' Ouverture des fichiers
Workbooks.Open Chemin_Fichier & Fichier1
Workbooks.Open Chemin_Fichier & Fichier2
Set ws = Nothing

Je voudrais qu'après l'ouverture de mon fichier Excel1 la mise en forme soit faite automatiquement par le biais de cette macro que j'ai éditer en faisant l'enregistrement automatique :

selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True

Merci de votre aide