Macro qui en lance une autre (revenir en arrère)

Bonjour,

J'espère que vous allez bien! Petite question :
à l'intérieur d'une macro j'en appelle une autre : il s'agit de traduire mes labels de mon formulaire en Anglais selon le fournisseurs choisis dans une CBox

ça fonctionne, seule chose est si je rechange de fournisseur dans ma Cbox pour un qui devrait être en français.. ça reste en Anglais quand même.. Je ne suis pas une pro mais je ne vois pas pourquoi cela ne revient pas.. Suis-je obligée de faire une 2ème macro pour le mettre en français? Quand je change exemple de fournisseurs, les autres changements se font, c'est juste mes labels qui restent en Anglais.. Suis-je obligée de créer une macro ex : Traduire Français ou il y a un moyen que les nom des labels reviennent par défaut ?

voici mon code :

Private Sub cbox_adressefournisseur_change()


If Cbox_adressefournisseur.Value = "JD Irving : 632 Rue Principale Clair NB" Then
Cbox_adressecourriel.Value = "Dube.Denis@jdirving.com"
Tbox_détail.Value = "Denis Dubé"
Cbox_transport.Value = "Irving"
Else
End If
If Cbox_adressefournisseur.Value = "Billot Select : 3677 Rue Lévis, Lac Mégantic Qc" Then
Cbox_adressecourriel.Value = "ventes@billotsmegantic.com"
Tbox_détail.Value = "Pierre Grenier"
Cbox_transport.Value = "Bolduc(Billot Select)"
Else
End If
If Cbox_adressefournisseur.Value = "Bois Saxby : 8751 Blvd Bourque, Sherbrooke Qc" Then
Cbox_adressecourriel.Value = "saxby@abacom.com"
Tbox_détail.Value = "Tommy Brière"
Else
End If
If Cbox_adressefournisseur.Value = "Scierie Labranche 25 Ch. du moulin, St-Isidore de Clifton,Qc" Then
Cbox_adressecourriel.Value = ""
Tbox_détail.Value = "Michel Labranche"
Else
End If
If Cbox_adressefournisseur.Value = "Empire Forest Product, 2880 Headon Forest Dr , Burlington, ON" Then
Call TraduireAnglais
Cbox_adressecourriel.Value = "dlindsay7@cogeco.ca"
Tbox_détail.Value = "Darren Lindsay"
else
End If
If Cbox_adressefournisseur.Value = "Scierie Préverco, 345 6ème Rue, Daveluyville, Qc" Then
Cbox_adressecourriel.Value = "jlmoisan@preverco.com"
Tbox_détail.Value = "Jean-Luc Moisan"

Else
End If

End Sub

Private Sub TraduireAnglais()

Label4 = "SUPPLIER ADRESS"
Label5 = "DETAILS"
Label6 = " ASKING DATE"
Label7 = "TERMS"
Label8 = "CARRIER"
Label9 = "F.O.B."
Label10 = "BUYER"
Label13 = "QUANTITY"
Label1 = "PURCHASE ORDER"
label75 = "COMMENTS"
Label15 = "CURRENCY"
Label19 = "APPROUVED BY"
Label18 = "ONLY FRESH SAW WOOD" & Chr(10) & "NO STAINS OR DECOLORATION" & Chr(10) & "1 TALLY/BUNDLE" & Chr(10) & "CONFORM TO N.H.L.A RULES"
Label21 = "THIS IS THE ORIGINAL PURCHASE ORDER, YOU WILL NOT RECEIVED ANOTHER ONE BY MAIL"
If Cbox_adresselivraison.Value = "SKF" Then
Label20 = "35 RUE LAJEUNESSE" & Chr(10) & "KINGSEY FALLS  QC" & Chr(10) & "ONLY BY APPOINTEMENT" & Chr(10) & "819-363-5870" & Chr(10) & "mbrousseau@sechoirskingseyfalls.com" & Chr(10) & "Monday to Thursday : 7:00 to 15:30" & Chr(10) & "Friday :7:00 to noon"
End If
End Sub

merci beaucoup à l'avance de votre aide
Mélanie