Masquer et réafficher colonne suivant condition ListBox

Salut le forum

J'utilise ce bout code pour l'impression de feuille (D'un fichier fait par un Exélien du forum).

Private Sub CmdImprimer_Click()

Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(i)).PrintOut
Else
End If
Next i
Application.DisplayAlerts = True
Call AffichageBoutonsMenu
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True

End Sub

Ce que j'essaye de rajouter c'est une fonction qui me Masquerai les colonnes (B;C;D;E) si le résultat de la sélection et "Tool_Dossier"
et une fois l'impression faite que cela me réaffiche ces colonnes

Je connais le principe pour masquer une colonne, mais pas par l'intermédiaire d'une sélection dans une listbox

Columns("B:E").Select
Selection.EntireColumn.Hidden = True

Je pensait faire :

Private Sub CmdImprimer_Click()

Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
If LbFeuilles.Selected(i) = "Tool_Dossier" then
Columns("B:E").Select
Selection.EntireColumn.Hidden = True
else
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(i)).PrintOut
End if
Else
End If
Next i
Application.DisplayAlerts = True
Call AffichageBoutonsMenu
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

mais cela me donne une incompatibilité de type

Et je ne sais si cela a une importance, ma ListBox est multselect.

Je vous remercie, pour votre aide,G'Claire