vérifier la présence d'une feuille

Salut Neuba Danho,

Je ne sais pas si j'ai bien compris mais pour lister tes feuille tu feux faire çà :

(à lancer sur une feuille vierge)
Sub ListerFeuilles()
x = 1
For Each sh In ActiveWorkbook.Sheets
Range("A" & x) = sh.Name
x = x + 1
Next sh
End Sub

Tu auras la liste des feuilles existantes...

Sinon tu peux aussi avoir en menu la liste des feuille avec ce code :
Sub MenuFeuilles()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub


Si c'est ce que tu veux ?
Bonne Soirée
@+Thierry