Bonjour,
une macro évennementielle devrait faire l'affaire :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
ActiveCell().Value = 1
Cancel = True
End Sub
A noter que si tu ne mets pas Cancel = True, passe en modification dans la cellule ( comme un dblclic normal).