En gros j'ai essayé :
'Zonecombinée2.Visible = False
'ActiveSheet.Shapes("Zonecombinée2_QuandChangement").Visible = False
'Workbooks("Zonecombinée2_QuandChangement").Visible = False
'Workbooks("Zonecombinée2").Visible = False
'Forms("Zonecombinée2_QuandChangement").Visible = False
'Sheets("Zonecombinée2_QuandChangement").Visible = False
'[Zonecombinée2_QuandChangement].Visible = False
'UserForm("Zonecombinée2_QuandChangement").Visible = False
'Me.Zonecombinée2_QuandChangement.Visible = False
'Zonecombinée2_QuandChangement.Visible = False
'Feuil1.Shapes("Zonecombinée2_QuandChangement").Visible = msoFalse
'Feuil1.Shapes("Zonecombinée2").Visible = msoFalse
'Feuil1.Shapes("Zonecombinée2_QuandChangement").Visible = False
'Feuil1.Shapes("Zonecombinée2").Visible = False
'If Disparaitre_bas = true
'Then Zonecombinée2.Visible = false
'If Disparaitre_bas.Value = 1 Then
'Feuil1.Shapes("Zonecombinée2").Visible = msoFalse
'ElseIf Target.Value = 2 Then Feuil1.Shapes("Zonecombinée2").Visible = msoCTrue
'End If
Rien ne maaaaarche !!!!