Sub Zonecombinée51_QuandChangement()
If Cells(1, 3).Value = 0 Then Exit Sub
feuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(feuilleChoisie)
.Visible = True
.Select
End With
Feuil1.Shapes("Drop Down 1").DrawingObject.ListIndex = 0
End Sub