Salut Thomas
Je débute en VBA, donc, je ne suis pas tout à faire sur du truc :
D'abord, attribue un nom à la plage de cellules de ton planning
Ensuite, dans le code, il faut taper un truc du genre
Private Sub
Dim planning as Range
Dim NbHeures as Single
For each planning.cells
if cells.backcolor=3 then NbHeures = NbHeures+1
End For
End Sub
Les pros, j'ai bon ?