Function MoyParSemaine(J1 As Range, J2 As Range, Optional J3 = 0, Optional J4 = 0, Optional J5 = 0, Optional J6 = 0, Optional J7 = 0)
Dim c, N%, S: N = 0: S = 0
On Error Resume Next
If J1 <> 0 Then N = N + 1: S = S + J1
If J2 <> 0 Then N = N + 1: S = S + J2
If J3 <> 0 Then N = N + 1: S = S + J3
If J4 <> 0 Then N = N + 1: S = S + J4
If J5 <> 0 Then N = N + 1: S = S + J5
If J6 <> 0 Then N = N + 1: S = S + J6
If J7 <> 0 Then N = N + 1: S = S + J7
If N > 0 Then
MoyParSemaine = S / N
Else
MoyParSemaine = ""
End If
End Function