Aide macro copier graphique existant si cellule

Bonjour à la communauté, j'aimerai avoir un peu d'aide et surtout comprendre mon erreur.

J'ai une liste de nom, avec une photo affilié pour chacun.

Sur une autre feuille, j'ai un menu déroulant avec donc les noms.

J'ai une feuille créer par nom avec 2 graphiques les concernant.

Ce que je souhaite, c'est que lorsque je selectionne un nom dans le menu déroulant, les 2 graphiques de la personne selectionné s'affiche à coté du menu déroulant.

Voici le code que j'ai fait (aucune erreur ne s'affiche mais rien ne s'execute)

(pour des raisons confidentiel, je ne peux pas mettre le vrai nom utilisé donc dans le code je met des ***.)

[/Sub graphiqueseb()
'
' graphiqueseb Macro
'

'
If Cells(c, 11) = "****" Then 'si la cellule est égale a tel nom alors
      Sheets("***").Select ' selection de la feuille du nom concerné
    ActiveSheet.Shapes.Range(Array("Graphique 1", "Graphique 2")).Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("C13").Select
    ActiveSheet.Paste
    End If
end sub

Merci pour votre aide.

Bonjour JdViRuS, le forum,

[/Sub graphiqueseb()

Commence par enlever le [ et le / devant le Sub

Sub graphiqueseb()

Cordialement,

Désolé j'ai ajouté ça par erreur sur le forum uniquement.

Mon code est donc correct, enfin c'est pas ce ça qu'il s'agit.

Up ?!

Sinon dite moi comment je peux demander à un graphique dynamique de filtrer au nom que je selectionne ...

Là ou ça blique toujours c'est ma condition, alors qu'elle ne semble pas difficile.

Bonsoir JdViruS, le forum,

L'erreur ne serait-elle pas ici:

If Cells(c, 11) = "****" Then 

Si tu veux que ce soit la cellule C11, tu écris soit ("C11") soit cells(11,3)

Cordialement,

Je ne comprend pas pourquoi ça ne fonctionne pas. Alors que mon code, sans la condition, ça fonctionne.

POur info j'ai ajouter ce code dans feuil1.

Sub essai3()

If Cells("C11") = "***" Then 'si la cellule est égale a tel nom alors

Sheets("***").Select ' selection de la feuille du nom concerné

ActiveSheet.Shapes.Range(Array("Graphique 1", "Graphique 2")).Select

Selection.Copy

Sheets("Feuil1").Select

Range("C13").Select

ActiveSheet.Paste

End If

End Sub

Re,

Petit souci de syntaxe, essaie ainsi :

If Range("C11")= "***" Then

ou

If Range("C11").Value = "***" Then

ou

If Cells(11, 3).Value =  "***" Then

Cordialement,