Je suppute que toutes tes valeurs sont alignées par défaut à droite dans les cellules.
Alors tu selectionnes la colonne concernée et tu exécutes ce code.
Code:
Sub Alignement()
For Each cel In Selection
If cel.Value Mod 2 <> 0 Then
cel.Select
With Selection
.HorizontalAlignment = xlLeft
End With
End If
Next cel
End Sub