Re,
j'ai trouvé cette solution finalement assez simple mais cela fonctionne
If ActiveSheet.Shapes("Shapes3").Visible = False Then
Exit Sub
Else
ActiveSheet.Shapes("Shapes4").Visible = True
ActiveSheet.Shapes("Shapes5").Visible = True
ActiveSheet.Shapes("Shapes6").Visible = True
End If
cdt