Compteur

[COLOR=blue]Option Explicit[/COLOR]

[COLOR=blue]Function[/COLOR] COMPTEUR([COLOR=blue]ByVal[/COLOR] Plage [COLOR=blue]As [/COLOR]Range) [COLOR=blue]As Integer
[/COLOR][COLOR=blue]Dim[/COLOR] Cell [COLOR=blue]As[/COLOR] Range
[COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] Integer
 
Application.Volatile
    [COLOR=blue]For Each[/COLOR] Cell [COLOR=blue]In[/COLOR] Plage
        [COLOR=blue]If[/COLOR] Cell <> "" [COLOR=blue]And[/COLOR] Cell <> 0 [COLOR=blue]Then[/COLOR]
            i = i + 1
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] Cell
COMPTEUR = i
[COLOR=blue]End Function[/COLOR]