Private Sub btnTraduire_Click()
fldTraduction.Value = Feuil1.Range('E10')
End Sub
Private Sub btnQuit2_Click()
usfRecherche.Hide
Unload usfRecherche
End Sub
Private Sub fldRecherche_Change()
Feuil1.Range('E8') = fldRecherche.Value
End Sub
Private Sub UserForm_Click()
End Sub