Bonjour
j'ai une fonction sur une feuille de calcul ( modele)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Function nb_font(plage As Range, cellule As Range) As Long
    Application.Volatile
    Dim celle As Range, nb As Long
    n = 0
    For Each celle In plage
    If celle.Value = "" And celle.Interior.ColorIndex = cellule.Interior.ColorIndex Then n = n + 1
    Next
    nb_font = n
End Function
dans un module je cree une nouvelle feuille et je copie les données de la feuille modele contenant les fonctions.
je voudrai que cette fonction se lance qu'a la fin du module