Bonjour,
Clic droit sur ta zone, puis affecter une macro et tu mets ce code :
If ActiveSheet.DropDowns.Value = 1 Then 'Selection de la liste par index (1 = Bonjour)'
ActiveSheet.Shapes.Range(Array("Rectangle 4")).Visible = False 'non visible'
ActiveSheet.Shapes.Range(Array("Rectangle 3")).Visible = True 'visible'
Else
ActiveSheet.Shapes.Range(Array("Rectangle 4")).Visible = True 'visible'
ActiveSheet.Shapes.Range(Array("Rectangle 3")).Visible = False 'non visible'
End If
Normalement, sauf erreur de ma part, cela devrait marcher.