Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next 'si le format ne peut être supprimé
ThisWorkbook.DeleteNumberFormat [A3].NumberFormat
[A3].NumberFormat = "General"" " & [A2] & """"
End Sub