Private Sub UserForm_Initialize()
Dim Terme As Control, Llangue As Range
Call Choixdelangue
For Each Llangue In Range("Langues")
If Llangue.Value = ChoixLangue Then
Me.Caption = "-" & Llangue.Offset(0, 1)
Exit For
End If
Next
For Each Terme In Me.Controls
Terme.Caption = [Libelles].Find(Terme.Name).Offset(0, LangueChoisie - 1).Value
Next
End Sub