Formule Application.Average avec iferror

Bonjour à tous,
J’ai un code qui me permet de faire une moyenne :

Code:

---

1 2 3 4 5 6 7 8 9

For Col = 7 To 58 Cells(23, Col) = Application.Average(Sh20.Cells(26, Col - 1), Sh20.Cells(79, Col - 1), _ Sh21.Cells(26, Col - 1), Sh21.Cells(79, Col - 1), _ Sh27.Cells(26, Col - 1), Sh27.Cells(185, Col - 1), _ Sh33.Cells(26, Col - 1), Sh33.Cells(79, Col - 1), _ Sh34.Cells(26, Col - 1), Sh34.Cells(79, Col - 1), _ Sh40.Cells(26, Col - 1), Sh40.Cells(79, Col - 1)) Next Col

---

Cependant, je n’arrive pas a trouver la syntaxe pour inclure le iferror.
Merci pour votre aide.

Code:

---

1 2 3 4

With Worksheets("Feuil1").Cells(23, 7).Resize(, 52) .Formula = "=IFERROR(AVERAGE(" & Paramet(Sh20) & "," & Paramet(Sh21) & "," & Paramet(Sh27) & "," & Paramet(Sh33) & "," & Paramet(Sh34) & "," & Paramet(Sh40) & "),"""")" .Value = .Value End With

---

avec Paramet

Code:

---

1 2 3 4

Private Function Paramet(ByVal Sh As Worksheet) As String   Paramet = "'" & Sh.Name & "'!F$26,'" & Sh.Name & "'!F$79" End Function

---

Je te remercie :) ça marche parfaitement. :lol: