Copier coller inactif

Depuis que j'ai rajouter le système combobox et un vba bizarrement je ne sais plus copier/coller quoi que sa soit sur cette page !

Sur les autres cela fonctionne...

Voici le code vba :

Dim a()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect([B4:B37], Target) Is Nothing And Target.Count = 1 Then

a = Application.Transpose(Sheets("stock").Range("liste"))

Me.ComboBox1.List = a

Me.ComboBox1.Height = Target.Height + 3

Me.ComboBox1.Width = Target.Width

Me.ComboBox1.Top = Target.Top

Me.ComboBox1.Left = Target.Left

Me.ComboBox1 = Target

Me.ComboBox1.Visible = True

Me.ComboBox1.Activate

'Me.ComboBox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)

Else

Me.ComboBox1.Visible = False

End If

End Sub

Private Sub ComboBox1_Change()

If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then

Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)

Me.ComboBox1.DropDown

End If

ActiveCell.Value = Me.ComboBox1

End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Me.ComboBox1.List = a

Me.ComboBox1.Activate

Me.ComboBox1.DropDown

End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then ActiveCell.Offset(1).Select

End Sub

voyez vous quelque chose ou alors d'ou peut venir le problème ?