Macro avec condition si et deux arguments

Bonjour,

N'ayant pas obtenu de réponse, je vais essayer de reformuler ma demande.
j'ai écrit une macro qui affiche ou n'affiche pas des images ou des graphiques en fonction du choix dans une boite de dialogue.
If Range("choix") = 1 Then
ActiveSheet.Shapes.Range(Array("nom")).Visible = msoTrue
ActiveSheet.ChartObjects("nom").Visible = True
ActiveSheet.Shapes.Range(Array("nom")).Visible = msoFalse
If Range("choix") = 2 Then
ActiveSheet.Shapes.Range(Array("nom")).Visible = msoFalse
ActiveSheet.ChartObjects("nom").Visible = False
ActiveSheet.Shapes.Range(Array("nom")).Visible = msoTrue
etc, etc....

Ce que je souhaiterais, c'est de ne pas afficher ces images ou graphiques si la valeur d'une cellule est vide, comment passer cet argument au niveau de ma macro qui pourrait être
Si le choix =x et et si nom_cellule = vide ou 0 alors ne pas afficher
si non vide alors afficher les élémenst correspondants

Merci à tous et toutes