Arguments dans un sub

Bonjour, petite question pour vous tous :

J'aimerais créer un module pour lequel seul le nom de la feuille sur laquelle il agit est variable.

Par exemple, ça pourrait ressembler à ceci :

Sub ShName( NomDeLaFeuille As Sheets)

'

'

'

End sub

Plus tard, j'aimerais "Caller" ce module, en mentionnant la feuille sur laquelle je veux qu'il agisse :

Call ShName(Feuil1)

Mais cela ne fonctionne pas, j'ai peut être fait une erreur dans ma nomenclature ?

Merci à tous de votre aide

Cordialement, Martin T.

bonsoir,

trop s ..

de mémoire :

Sub ShName (sh as workSheet)
  msgbox sh.name
End sub

'et pour l'appel
Sub TestAppel()
  ShName Thisworbook.Sheets(1)
end sub

Super , merci beaucoup, j'avais un petit blanc de mémoire