Bonjour Emmanuel,
Par un format je vois pas trop. Essaye ce code :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.EnableEvents = False
Target.Value = Abs(Target.Value) * -1
Application.EnableEvents = True
End Sub
Le Abs() sert à ne pas tenir compte des négatifs éventuellement saisis.
Les Application.EnableEvents sont là pour éviter des appels récursifs de l'évènement lors de la modif de la cellule par le Sub lui-même.
Dernière chose, si tu ne veux pas que cela fonctionne pour toutes les feuilles de ton classeur, place le code dans le WorksheetChange() de la feuille concernée plutôt que le Workbook_SheetChange().
Bonne journée.
José