Afficher liste des imprimante dans combobox sur userform

<font size="2">Salut à tous</font>


J'ai un petit problème avec une macro.

En effet, lorsque je lance ma macro la liste des imprimantes s'affiche dans un combobox d'un userform:

Nom de l'imprimante sur PORTPROMPT:
Nom de l'imprimante sur SHRFAX:
Nom de l'imprimante sur USB002
Nom de l'imprimante sur USB001
...ETC...

Mon voeux est que je souhaiterais que la liste s'affiche comme suit:

Nom de l'imprimante sur Ne0..:
Nom de l'imprimante sur Ne0..:
Nom de l'imprimante sur Ne0..:
Nom de l'imprimante sur Ne0..:
...ETC...

Voici le code que j'utilise

'...………………………………………………………………………………………………………………………………………………………………..
 

Sub LISTE_IMPRIMANTE()
Dim NomPC, Printer As String
Dim ObjPrinter, ColInstalledPrinters, ObjWMiService As Object
Dim i As Integer

NomPC = "."

Set ObjWMiService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & NomPC & "\root\cimv2")
Set ColInstalledPrinters = ObjWMiService.ExecQuery("select * from win32_printer")


For Each ObjPrinter In ColInstalledPrinters
With Userform1
.ComboBox1.AddItem ObjPrinter.Name & " sur " & ObjPrinter.PortName
End With
Next


End Sub

'...………………………………………………………………………………………………………………………………………………………………..


Merci d'avance