Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Cel As Range
For Each Cel In Cible.Cells
With Cel
If (.Column = 1) And (Not IsEmpty(.Value)) And (IsNumeric(.Value)) Then
Select Case (.Value = Int(.Value)) * (1 - WorksheetFunction.IsOdd(.Value))
Case 0: .HorizontalAlignment = xlCenter
Case -1: .HorizontalAlignment = xlRight
Case -2: .HorizontalAlignment = xlLeft
Case Else: .HorizontalAlignment = xlGeneral
End Select
End If
End With
Next
End Sub