Bonsoir
voici une macro qui efface tous les graphes de la feuille active et ensuite toutes les données de la feuille
Option Explicit
Sub efface()
Dim graph As Object
For Each graph In ActiveSheet.ChartObjects
graph.Delete
Next
ActiveSheet.Cells.Clear
End Sub
@+Vincent
ps:si par texte tu entends zone de texte il y aura des modifs a faire.