Dim oW As Word.Application = New Word.Application
        Dim oWDoc As Word.Documents = oW.Documents
        Dim d As DictionaryEntry
 
        oWDoc.Open(path)
 
        For Each d In hash_bdd
            temp = Split(d.Value, ";", 3, CompareMethod.Text)
 
            With oWDoc.Application.ActiveDocument.Range.Find
                .ClearFormatting()
                .Text = temp(0) 'Texte recherché
                .MatchWholeWord = True 'On cherche l'expression exacte
                .Highlight = False
                With .Replacement 'On définit les params de remplacement
                    .ClearFormatting()
                    .Text = temp(0) 'Le texte n'est pas remplacé, donc on garde le même terme
                    .Highlight = True 'Mais on le surligne !
                End With
                .Execute(Replace:=Word.WdReplace.wdReplaceAll, Format:=True)
            End With
        Next d

        For Each d In hash_bdd
            temp = Split(d.Value, ";", 3, CompareMethod.Text)
 
            wordRange.Find.ClearFormatting()
            wordRange.Find.Text = temp(0)
            wordRange.Find.MatchWholeWord = True
            wordRange.Find.Replacement.Highlight = True
            wordRange.Find.Execute(, , , , , , , , , , replaceAll, , , , )
        Next d