Menu déroulant: 2 colonnes (sans concatener)

Option Explicit

Private Sub ComboBox1_Change()
    ActiveCell = ComboBox1
    ComboBox1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [C2:C12]) Is Nothing And Target.Count = 1 Then
        With Worksheets("Listes")
            ComboBox1.List = .Range("A2:B" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
        End With
        With ComboBox1
            .Value = Target
            .Left = Target.Left
            .Top = Target.Top
            .Visible = True
        End With
    Else
        ComboBox1.Visible = False
    End If
End Sub