Mise en valeur mot dans cellule Excel en VBA

Avec 4000 lignes c'est moins pratique...
Je connaissais votre méthode bien sur!

Bojour,

toute la difficulté, dans ce cas, sera pour excel de trouver, dans une phrase, quels mots sélectionner.
si ces mots sont en exergue dans une colonne séparée, en vis à vis de la phrase,
un peu de VBA pourra secourir.
sur ce topic, j'ai souvenir d'avoir lu des réponses en ce sens.

Bonne continuation
Cordialement,
axion

PS: une approche, sans macro: http://www.commentcamarche.net/s/Excel+%3A+Modifier+la+police+en+conact%E9nant?qlc

Merci, c'est précisément pour avoir ce bout de code VBA que je faisais appel au forum ;-)

j'ai enfin trouvé...

Sub test3()
Dim LeMot As String, LaPhrase As String
Dim Deb As Integer, Decal As Integer

For x = 1 To 5000
Decal = 0
LaPhrase = Range("F" & x).Value
LeMot = InputBox("veuillez entrez le mot recherché")

Do
Deb = InStr(1, LaPhrase, LeMot)
If Deb > 0 Then
Range("F" & x).Characters(Deb + Decal, Len(LeMot)).Font.Color = vbRed
Range("F" & x).Characters(Deb + Decal, Len(LeMot)).Font.Bold = True
LaPhrase = Mid(LaPhrase, Deb + Len(LeMot))
Decal = Decal + Deb + Len(LeMot) - 1
End If
Loop While Deb > 0
Next x
end sub