J'ai trouvé une solution, non satisfaisante mais solution quand même. Elle est basée sur une instruction trouvée sur le site de Microsoft
Code:
If ActiveDocument.Words(1).GetSpellingSuggestions.Count <> 0 Then
MsgBox ActiveDocument.Words(1).GetSpellingSuggestions.Item(1).Name
End If
GiHem