Afficher graphique en fonction du nom

Bonjour,

J'ai crée une macro qui récupère les graphiques et les mets dans un Word.
Le problème étant que j'ai vraiment beaucoup de graphique, et j'aimerais que tous les graphiques commençant par un caractère précis comme par exemple la lettre "G" se copient.

Avez-vous des idées ou pistes ?

Merci d'avance.

ActiveSheet.ChartObjects("Graphique1").Chart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
wrdApp.Selection.Goto what:=wdGoToBookmark, Name:="Graphique1" ' on recherche le signet dans Word pour se positionner
wrdApp.Selection.MoveRight wdCharacter, 1
'wrdApp.Selection.MoveLeft wdCharacter, 1 ' optionnel : pour se placer AVANT le signet (move left)
wrdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False