CALCUL DU NOMBRE D'OCCURENCE D'UN CARACTÈRE OU CHAÎNE DE CARACTÈRES

Function CalculateOccurenceNumber(strString As String, strCharacter As String) As Integer
    
    Dim intPosition As Integer
    
    intPosition = 1
    
    While intPosition <= Len(strString) And strCharacter <> "" And InStr(intPosition, strString, strCharacter) <> 0
       
        intPosition = InStr(intPosition, strString, strCharacter)+1
        CalculateOccurenceNumber = CalculateOccurenceNumber + 1
    Wend
End Function