Correction instantané du français dans texbox

Bonjour a tous

je faire une texbox qui corrige les fautes de français automatiquement pour un utilisateur qui ne maîtrise pas

les règles d’orthographe,de grammaire,et de conjugaison .

j'ai trouvé ces deux code mais ils sont pas suffisamment poussé

Merci d'avance

Private Sub CommandButton5_Click()

Dim Faute As Boolean

Dim T As String

T = Me.TextBox6

If T <> "" Then

With Worksheets(1)

Application.EnableEvents = False

With .Range("F18")

.Value = Me.TextBox6.Text

.CheckSpelling SpellLang:=1036

Me.TextBox6 = .Text

.Value = ""

End With

Application.EnableEvents = True

End With

End If

End Sub

Private Sub CommandButton5_Click()

With Range("F18")

.Value = Me.TextBox6

.CheckSpelling CustomDictionary:="PERSO.DIC", IgnoreUppercase:=False, _

AlwaysSuggest:=True, SpellLang:=1036

Me.TextBox6 = .Value

.ClearContents

End With

End Sub