Application.Sheets.Count
For i = 1 to Sheets.Count
'ici, pour le nombre de caractères, je met 15 , mais ça peut être n'importe quoi.
If Left(Sheets(i).Name,15) = "fiche budget+20" Then
'Alors tu ajoutes dans le listbox. Sinon, passe à l'onglet suivant.