éxecuter une fonction vba dans excel

=somPremEnt(A1)

Function somPremEnt(ByVal n As Integer) As Integer
' Hypothèse : n >= 0.
If n >= 0 Then
   ' Renvoie : la somme des entiers compris entre 0 et n (inclus).
   somPremEnt = (n * (n + 1)) / 2
   End If
End Function

Function somPremEntRoger_1(d)

'Respecte la condition : "... une fonction qui, étant donné
'un entier naturel n, renvoie la somme des n premiers entiers
'naturels non nuls..."
'
'Cette condition impose que :
'   - si n n'est pas entier, la fonction ne renvoie rien (ou
'     une valeur d'erreur) ;
'   - si n n'est pas strictement positif, la fonction ne
'     renvoie rien (ou une valeur d'erreur).

    somPremEntRoger_1 = ""
    If Not IsEmpty(d) And IsNumeric(d) Then
        If d = Int(Abs(d)) Then
            If d > 0 Then somPremEntRoger_1 = d * (d + 1) / 2
        End If
    End If

End Function

Function somPremEntRoger_2(d)

'Respecte la condition : "... une fonction qui, étant donné
'un entier naturel n, renvoie la somme des n premiers entiers
'naturels non nuls..."
'
'Cette condition impose que :
'   - si n n'est pas entier, la fonction renvoie une valeur
'     d'erreur (ou rien) ;
'   - si n n'est pas strictement positif, la fonction
'     renvoie une valeur d'erreur (ou rien).

    somPremEntRoger_2 = "argument invalide"
    If IsEmpty(d) Then
        somPremEntRoger_2 = ""
    Else
        If IsNumeric(d) Then
            If d = Int(Abs(d)) Then
                If d > 0 Then somPremEntRoger_2 = d * (d + 1) / 2
            End If
        End If
    End If

End Function