Bonjour,
Mets :
Shapes("Essaiforme1").DrawingObject.Text = Feuil2.Range("Ex_N")
Shapes("Essaiforme1").DrawingObject.Text = Feuil2.Range("Ex_N_1")
Nota :
Attention Feuil2 est le CodeName (dans VBA) de ta Worksheet("Feuil2")
Donc si ta Feuil2 est nommée "blabla" le code ne change pas
de la même manière si cette Feuille2 est déplacée en troisième place, le code est également inchangé
Si tu préfères, tu peux aussi mettre :
Shapes("Essaiforme1").DrawingObject.Text = WorkSheets("blabla").Range("Ex_N")
Shapes("Essaiforme1").DrawingObject.Text = WorkSheets("blabla").Range("Ex_N_1")
A+