Lancer une fonction depuis un bouton

bonjour a tous

j'ai une fonction qui se trouve dans un module

Function SommeCouleur(plage_somme As Range, Optional cellule_couleur As Range, Optional sous_total As Boolean)
    Application.Volatile
    Dim cel As Range
    Somme = 0
    If cellule_couleur Is Nothing Then
        Set cellule_couleur = Application.Caller
    End If
    couleur = cellule_couleur.Interior.Color
    For Each cel In plage_somme.Cells
        If cel.Interior.Color = couleur And IsNumeric(cel) And Not IsError(cel) And (cel.EntireRow.Hidden = False Or Not sous_total) Then
            Somme = Somme + cel
        End If
    Next cel
    SommeCouleur = Somme
End Function

que je cherche a lancer depuis un bouton:voici le code que j'ai sur la feuille ou le code doit s'executer

Private Sub CommandButton1_Click()
    Call SommeCouleur
End Sub

pourtant j'ai ce message d'erreur

Erreur de compilation , Argument non facultatif

étant novice en vba (pas trop doué)

amicalement

Bonjour,

"Erreur de compilation , Argument non facultatif "

Dans la ligne suivante "Private Sub CommandButton1_Click()", entre les parenthèses il faut y glisser les paramètres (Arguments), sinon comment la fonction sait à quoi correspondent "plage, cellule_couleur, sous_total"

Faites un quelques recherches sur le net concernant l'appel des fonctions via une macro avec passage de paramètres

Cdlt