Sub CheckBox_Clic()
Dim SH As Shape
Dim DD As Excel.DropDown
'--- Identification du DropDown ---
For Each SH In ActiveSheet.Shapes
If SH.FormControlType = xlDropDown Then
Set DD = ActiveSheet.DropDowns(SH.Name)
DD.Visible = [a4] 'on affecte avec la valeur de la cellule liée de la CheckBox
Exit For
End If
Next SH
End Sub