je ne sais pas si ma réponse correspond à ta question, sinon joint ton fichier
Public Sub montre_feuille(f As Object)
f.Select
MsgBox f.Name
End Sub
Public Sub test()
Dim feuille As Object
Set feuille = f1 'j'ai renommé feuil1 en f1, il est interessant de donner
' des noms signifiants au feuille, évidemment f1 n'est
' pas un nom signifiant
Call montre_feuille(feuille)
End Sub