Application.WorksheetFunction.Average(Range("I4:I5 "))
With Sheets("calculateur")
Application.WorksheetFunction.StDevP([SIZE=4][COLOR=red][B].[/B][/COLOR][/SIZE]Range("I4:I5"), Application.WorksheetFunction.Average([SIZE=4][COLOR=red][B].[/B][/COLOR][/SIZE]Range("I4:I5")))
End With
Application.WorksheetFunction.StDevP(ThisWorkbook.Sheets("calculateur").Range("I4:I5"), Application.WorksheetFunction.Average(Sheets("AutreFeuille").Range("I4:I5 ")))