Stopper le chg de format

Dim ac As Range, nf$ 'mémorise les variables

Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeOf Sh Is Worksheet Then Workbook_SheetSelectionChange Sh, ActiveCell
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Set ac = ActiveCell: nf = ac.NumberFormat
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'si la cellule ac a été supprimée
If Source.Address = ac.Address Then ac.NumberFormat = nf
Set ac = ActiveCell: nf = ac.NumberFormat
End Sub