Function MOY(plage As Variant, ref As Variant) As Double [COLOR="Red"]'le 1er argument pour forcer le recalcul[/COLOR]
Dim ws As Worksheet, v As Variant, s As Double, n As Integer
ref = ref.Address [COLOR="red"]'le 2ème argument doit être une référence[/COLOR]
For Each ws In Worksheets
If ws.Name <> "Moyenne" Then
v = ws.Range(ref)
If IsNumeric(v) And v <> 0 Then s = s + v: n = n + 1
End If
Next
MOY = s / n
End Function