Bonjour,
Pour le principe, une proposition avec une procédure événementielle.
(Il faudrait déterminer une plage de cellules.)
Cdlt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then
Target = IIf(Target > 0, Target * -1, Target)
End If
End Sub