XL 2010 Textbox format pourcentage

[Appo1985]

Bonsoir. J'ai besoin de votre aide.
Je voudrais récupérer les données de 3 cellules dans trois textbox mais en format pourcentage avec 2 chiffres après la virgule mais je n'arrive pas à adapter le code. Je voudrais votre soutien
Le fichier que j'utilise ci-joint. Merci d'avance

 

[JM27]

Bonsoir

Private Sub CommandButton1_Click()
    TextBox1 = format(Sheets("Feuil1").Range("A1").Value / 100, "0.00%")
    TextBox2 = format(Sheets("Feuil1").Range("A2").Value / 100, "0.00%")
    TextBox3 = format(Sheets("Feuil1").Range("A3").Value / 100, "0.00%")
End Sub

 

[Appo1985]

Bonsoir

Private Sub CommandButton1_Click()
    TextBox1 = format(Sheets("Feuil1").Range("A1").Value / 100, "0.00%")
    TextBox2 = format(Sheets("Feuil1").Range("A2").Value / 100, "0.00%")
    TextBox3 = format(Sheets("Feuil1").Range("A3").Value / 100, "0.00%")
End Sub

Vraiment c'est exactement ce que je voulais. Merci infiniment