Bonjour,
Avec une fonction personnalisée matricielle (évite de boucler 7 fois pour avoir les 7 résultats) à mettre dans un module 'Standard'.
Sélectionner AU4:BA4 avant de saisir la fonction =repos(C4:AG4) et valider en matricielle avec Shift+Ctrl+Entrée
Ensuite tirer AU4:BA4 vers le bas.
Function repos(plage As Range) As Variant
Dim c As Range, result(1 To 7), b_repos As Boolean, nbj As Long
For Each c In plage
If c = "" Then
b_repos = True
nbj = nbj + 1
Else
If nbj > 0 And nbj <= 7 Then result(nbj) = result(nbj) + 1
b_repos = False
nbj = 0
End If
Next c
If b_repos Then result(nbj) = result(nbj) + 1
repos = result
End Function
Tu vas avoir des pb avec les repos à cheval sur 2 mois...
eric