Salut,
Voici un fonction qui récupéres toutes les feuilles de calcul visibles du classeur où est lancée la macro:
Private Function ListeF()
Dim I&, J&, T()
For I = 1 To ThisWorkbook.Worksheets.Count
If Worksheets(I).Visible Then
ReDim Preserve T(J)
T(J) = Sheets(I).Name
J = J + 1
End If
Next I
ListeF = T
End Function
Tu initiliases ta listbox avec list:
Talisbox.list=listef
Ensuite si tu rajoutes un bouton pour ajouter une feuille, qqch du style
private sub ton bouton_clik
Dim Temp, F As Worksheet
Temp = Application.InputBox("Sasir un nom de feuille", "Saisie", , , , , , 2)
Set F = thisworkbook.worksheets.add(, worksheets(whisworkbook.worksheets.count)) 'mis en dernier, en premmier ne mettre aucun paramètre
on error resume next
f.name = temp
if err<>0 then application.displayalerts=false:F.delete
talistbox.list=listef 'on réinitialise la listbox
end sub
A+++