Convertir dans un autre classeur

Bonjour à tous,

j'ai un classeur (outil.xlsx) dans lequel je récupère le nom des classeurs ouverts et j'identifie celui qui m'intéresse en "D1"(toto.xlsx) de ma feuille "ZZZ". Je voudrai trouver une macro qui reprenne le contenu de "D1" (il est amené à changer régulièrement) pour convertir les données d'une colonne du classeur toto.xlsx, mais impossible de trouver...

Voici le code avec le nom du fichier (toto.xlsx) "en dur" :

Sub convertir()

'

Windows("toto.xlsx").Activate

Columns("E:E").Select

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

Je voudrai remplacer toto.xlsx par le contenu de "D1".

Merci pour votre aide !