Rechercher ma colonne

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each c In Range("A6", [A65000].End(xlUp))
    If c <> "" Then ComboBox1.AddItem c
  Next c
End Sub

Private Sub ComboBox1_Change()
  [A:A].Find(what:=ComboBox1).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each c In Range("A6", [A65000].End(xlUp))
    If c <> "" Then
      ComboBox1.AddItem
      ComboBox1.List(i, 0) = c & " " & c.Offset(, 1)
      ComboBox1.List(i, 1) = c.Row
      i = i + 1
    End If
  Next c
End Sub

Private Sub ComboBox1_Change()
  On Error Resume Next
  Cells(ComboBox1.Column(1), 1).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each [COLOR="Red"][B]c[/B][/COLOR] In Range("A6", [A65000].End(xlUp))
    If c <> "" Then
      ComboBox1.AddItem
      ComboBox1.List(i, 0) = c & " " & c.Offset(, 1)
      ComboBox1.List(i, 1) = c.Row
      i = i + 1
    End If
  Next c
End Sub

Private Sub ComboBox1_Change()
  On Error Resume Next
  Cells(ComboBox1.Column(1), 1).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each [COLOR="Blue"]c[/COLOR] In Range("A6", [A65000].End(xlUp))
    If c <> "" Then
      ComboBox1.AddItem
      ComboBox1.List(i, 0) = c & " " & c.Offset(, 1)
      ComboBox1.List(i, 1) = c.Row
      i = i + 1
    End If
  Next c
End Sub

Private Sub ComboBox1_Change()
  On Error Resume Next
  Cells(ComboBox1.Column(1), 1).Select
End Sub