Problème click sur bouton

Bonjour à tous,

Depuis une semaine je suis embété :

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
End Sub

Quand je clique sur un bouton pour installer un code il me donne systématiquement le code ci-dessus il me donne plus

Private Sub CommandButton2_Click()

Quelqu'un aurait-il une idée de ce qui s'est passé. Car je suis obligé de retaper mon code entièrement.

Merci d'avance de votre aide

Amicalement

Noel