Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
If Intersect(ActiveCell, [G7:G500]) Is Nothing Then _
.Visible = False Else .Top = ActiveCell.Top: .Visible = True: .Activate
End With
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.List = Array("ALLO", "HELLO", "CHALUT")
ComboBox1.DropDown 'déroule la liste
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then ComboBox1 = ""
ActiveCell = ComboBox1
ActiveCell.Activate 'ôte le focus
End Sub