Bonsoir Gmars,
Voici un exemple de fonction qui devrait répondre à ta question :
----------------------------------------------------------------------------------------------
Public Function ChainCount(Chain As Variant, Sheet As Variant) As Integer
'Cette fonction analyse la Feuille dont le nom est passé dans le paramètre "Sheet" et calcule
'le nombre de cellules contenant la Chaine de caractères passée dans le paramètre "Chain"
ChainCount = 0
With ActiveWorkbook.Sheets(Sheet).Cells
Set c = .Find(Chain, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ChainCount = ChainCount + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Function
-----------------------------------------------------------------------------------------------
Attention cette fonction marche, mais je l'ai programmée "au plus court", si tu veux l'utiliser, il faudrait renforcer les contrôles de validité des paramètres ....
Cordialement ....