Salut,
Pour rechercher ton mot :
Range("A1:A3" ).Select 'Selection les cellule A1:A3
For i = 1 To Selection.Count 'Compte le nombre de cellule selectionner
If Selection(i).Formula = "A" Then 'Si l' une des cellule selectionner est égal à A
cpt = cpt + 1 'Compteur est égale alors à compteur + 1
End If
Next
MsgBox cpt 'Msg qui affiche le nombre de mot relever
C' est ça ?