Souci macro choix imprimante par défaut

Bonjour,

je souhaite faire une macro associée à un bouton qui permettrait d'imprimer les feuilles choisies sur une imprimante choisie, peu importe l'imprimante par défaut définie sur le poste.

J'ai développé la macro suivante qui ne fonctionne pas et qui imprime sur l'imprimante par défaut du poste.

Je ne vois pas ou le problème.

Merci d'avance

'Macro pour impression sur la couleur
Sub IMPRESSION()
Dim TempPrinter As String
Dim Printerdefault As String

Printerdefault = ActivePrinter ' mémorise le nom de l'imprimante par défaut
TempPrinter = "[URL=mon_url]" 'imprimante couleur 2
TempPrinter = Application.ActivePrinter ' on active l'imprimante

Sheets("feuille1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("feuille2").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Application.ActivePrinter = Printerdefault 'on rétablit l'imprimante par défaut
End Sub

Merci de ne pas me répondre remplace mon_url par l'adresse de ton imprimante...