Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B:B], Me.UsedRange)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target 'permet les entrées multiples
If IsNumeric(CStr(Target)) Then Target = Target * 1000
Next
Application.EnableEvents = True
End Sub