Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("base")) Is Nothing Then Exit Sub
'si on est pas dans base, on sort
Cancel = True
'bloque la transformation
Range("A4") = Target.Address(0, 0)
CommandButton1_Click
End Sub