Sub test()
Gauss100 ActiveSheet.[A1:X1], 11, 4
End Sub
Sub Gauss100(ByVal Plage As Range, ByVal Moy As Double, ByVal Ecart As Double)
Dim T(), C As Long, S As Double
ReDim T(1 To 1, 1 To Plage.Columns.Count)
For C = 1 To UBound(T, 2)
T(1, C) = Exp(-(((C - Moy) / Ecart) ^ 2))
S = S + T(1, C): Next C
For C = 1 To UBound(T, 2)
T(1, C) = T(1, C) / S: Next C
Plage.Value = T
End Sub