Problème de largeur du menu déroulant

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$2" Then
Sheets("noms").Columns(1).AutoFit
    With ComboBox1
        .Left = Range("C2").Left
        .Top = Range("C3").Top
        .Width = Sheets("noms").Columns(1).Width + 5
        .Visible = True
    End With
    Application.EnableEvents = False
    Target(2, 1).Select
    Application.EnableEvents = True
Else
    ComboBox1.Visible = False
End If
End Sub

Private Sub ComboBox1_Change()
    ComboBox1.Visible = False
    Selection = ComboBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row = 2 And Target.Column / 2 <> Int(Target.Column / 2) Then
Sheets("noms").Columns(1).AutoFit
    With ComboBox1
        .Left = Target.Left
        .Top = Target(2, 1).Top - .Height
        .Width = Sheets("noms").Columns(1).Width + 5
        .Visible = True
    End With
Else
    ComboBox1.Visible = False
End If
End Sub