Impression de données issues d'autres feuilles

Bonjour,

Sur une feuille j'ai un bouton qui m'ouvre un formulaire. Dans ce formulaire je peux sélectionner les autres feuilles présentes dans le fichier. Jusque là tout est ok sauf que je voudrai imprimer aussi les feuilles marsquées. Là je ne peux pas car elles n'apparaissent pas dans ce formulaire (exemple la feuille 3 dans le fichier joint).

Comment faire pour les faire apparaître dans ce formulaire ?

Je joins le fichier pour plus d'explication.

Merci.

Bonjour

Bonjour modifies ta macro

Sub MarqueFeuillesListbox()
Dim AvailableSheet As Worksheet
For Each AvailableSheet In ActiveWorkbook.Worksheets
'If AvailableSheet.Visible = xlSheetVisible Then
LbFeuilles.AddItem (AvailableSheet.Name)
'Else
'End If
Next AvailableSheet
On Error GoTo 0
End Sub

Bonsoir Banzai64

Merci pour ton aide.

Voici le code rectifié et qui fonctionne.

Sub MarqueFeuillesListbox()
Dim AvailableSheet As Worksheet
For Each AvailableSheet In ActiveWorkbook.Worksheets
LbFeuilles.AddItem (AvailableSheet.Name)
Next AvailableSheet
On Error GoTo 0
End Sub