Function Calcule(Qui, Semaine)
Dim Somme, Sh, A%, B%, Ligne%, Colonne%, Début%, Fin%
Somme = 0
Début = 0: Fin = 1
For Each Sh In Worksheets
If Sh.Name <> "Synthese" Then ' On ignore la feuille Synthese
If Sh.Name = "aaa" Then Début = 1 ' On commence à compter à partir de la feuille aaa
A = Application.CountIf(Sheets(Sh.Name).Range("A:A"), Qui) ' "Qui" existe t il ?
B = Application.CountIf(Sheets(Sh.Name).Range("1:1"), Semaine) ' "Semaine" existe t il ?
If A > 0 And B > 0 And Début = 1 And Fin = 1 Then ' Si "Qui" et "Semaine" existent alors on somme la valeur trouvée
Ligne =...