Function SommeHeuresSup(Nom)
' Ranges à modifier selon besoin
Dim Feuille As Worksheet, NbHeuresSup
NbHeuresSup = 0
For Each Feuille In Worksheets
If Feuille.Name <> "Synthese" Then ' Ne pas examiner cette feuille, A MODIFIER
NomPage = Feuille.Name
NbHeuresSup = NbHeuresSup + _
Application.WorksheetFunction.SumIf(Sheets(NomPage).Range("A1:A10"), Nom, Sheets(NomPage).Range("B1:B10"))
End If
Next Feuille
SommeHeuresSup = NbHeuresSup
End Function