Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("I2:I" & Rows.Count), UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target 'si entrées ou effacements multiples
Target(1, 5).NumberFormat = "0.00" & IIf(Target = "", "", """ " & Target & """")
Next
End Sub