Sub test()
Dim Rg As Range, X As String, Y As String
Dim MonTextBox As Object
With Feuil1
.Activate
'Pour récupérer l'étendue de la plage de cellules
'couvert par le graphique
X = .Shapes("Graphique 1").TopLeftCell.Address
Y = .Shapes("Graphique 1").BottomRightCell.Address
Set Rg = .Range(.Range(X), .Range(Y))
Rg(1, 1).Select
MsgBox Rg.Address
'Code pour ajouter un textbox
Set MonTextBox = .OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Link:=False, DisplayAsIcon:=False, Left:=138.75, Top:=22.5, _
Width:=144, Height:=39.75)
'Localisation du textbox
'pour situer le textbox dans le graphique
MonTextBox.Top = Rg.Offset(3).Top
MonTextBox.Left = Rg.Offset(, 1).Left
End With
End Sub