Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' Si plusieurs cellules sélectionnées, on sort
If Not Intersect(Target, Range("A1:Z1000")) Is Nothing Then ' Adapter plage où l'action doit s'effectuer
If Target = "" Then ' Si la cellule cliquée est vide
ActiveSheet.OLEObjects("Combobox1").Visible ' Afficher Combobox
End If
End If
End Sub