Bonjour
Cela vient de tes fonctions car tu indiques une grande zone à surveiller dans tes fonctions
Fais l’expérience suivante
Avec ton fichier, places toi sur une cellule vide et appuies sur la touche "Suppression"
Tu vas voir le sablier (ou l'équivalent) pendant quelques instants
Maintenant tu neutralises tes 3 fonctions dans l'éditeur : C'est à toutes les lignes entre le nom de la fonction et le End Function sont mises en commentaires
exemple
Function NbCouleur(Plage As Range)
' Application.Volatile
' i = 0
' For Each Cel In Plage
' If Cel.Interior.ColorIndex <> xlNone And Cel > 1 Then i = i + 1
' Next
' NbCouleur = i
End Function
Quand tu as l'as fait pour les 3 fonctions, refais l'expérience en te plaçant sur une cellule vide etc ... et tu verras que tu n'as pas le temps de voir le sablier (ou c'est très fugitif)
CQFD