Sub pyrof()
'-----------------------------------------------------------
' lecture et calcul des données
'-----------------------------------------------------------
Dim tab_temps
Set tab_temps = CreateObject("scripting.dictionary")
For Each tmp In ActiveWorkbook.Sheets
feuille = tmp.Name
If InStr(UCase(Trim(feuille)), "SEMAINE") = 1 Then
l = 12
While Sheets(feuille).Cells(l, 4) <> ""
cle = UCase(Trim(Sheets(feuille).Cells(l, 4)))
If tab_temps.exists(cle) = False Then tab_temps(cle) = 0
tab_temps(cle) = tab_temps(cle) + Sheets(feuille).Cells(l, 17)
l = l + 1
Wend
End If
Next
'-----------------------------------------------------------
' ectriture résultat
'-----------------------------------------------------------
Sheets("Recap").Select
Range(Cells(2, 1), Cells(1000, 2)).ClearContents
l = 1
For Each cle In tab_temps
l = l + 1
Cells(l, 1) = cle
Cells(l, 2) = tab_temps(cle)
Next
End Sub