Public Sub UneSubAppelante()
'dans le cas suivant : la sub appelée risque de faire nawak puisque la personne qui a codé a oublié de préciser le classeur et l'onglet, qui seront donc Activeworkbook et Activesheet
Call UneSubAppelee(Cells(1,1))
'dans le cas suivant, l'appel est maîtrisé :
Call UneSubAppelee(Thisworkbook.Sheets(1).Cells(1,1))
End Sub