For i = 5 To 35
If (Cells(i, 25).NumberFormat = "0.00%") Then 'test si la ligne est un dimanche
JourTravail = 0
For j = 1 To 5 'pour les jours de la semaine qui suit
If Cells(i + j, 25).Value <> "" Then si une la case est "rempli"
JourTravail = JourTravail + 1
Else
Cells(i, 25).Value = ""
End If
Next j
MsgBox ("nombre de case rempli dans cette semaine : " & JourTravail) 'ceci m'indique bien le nombre de case rempli
If JourTravail <> 0 Then 'si il y a au moin une case rempli
Cells(i, 25).Value = Cells(i - 1, 25).Value / JourTravail
End If
End If