Bonjour,
Essayez ceci peut-être, si valeur en A1 même onglet :
Private Sub CheckBox1_Click()
Static A1 As Variant
If Cells(1, 1).Value <> 0 Then A1 = Cells(1, 1).Value
If CheckBox1.Value = False Then
Cells(1, 1).Value = 0
Else
Cells(1, 1).Value = A1
End If
End Sub
Si valeur dans un autre onglet, en G18 :
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Cells(1, 1).Value = 0
Else
Cells(1, 1).Value = Sheets("Feuil2").Range("G18").Value
End If
End Sub