La macro ci-après est à l'origine du problème.
Pour mémoire, je travaille sous Office 2013 64 bits.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [B:B]) Is Nothing Then
UserForm1.Show
End If
End Sub