Fonction nom onglet

On veut effectuer dans l'onglet Recap une synthèse des onglets Dupont,Martin,...
Des onglets peuvent être ajoutés sans modification du tableau.

Fonction_nomonglet.xls

Donne le nom de l'onglet n

Function nomOnglet(n)
Application.Volatile
nomOnglet = Sheets(n).Name
End Function

Donne le nombre d'onglets

Function nbOnglets()
Application.Volatile
nbOnglets = Sheets.Count
End Function