Sub MiseEnForme()
Dim Cellule As Range, Traité As Boolean
For Each Cellule In Selection
If Cellule Like "*.*" Then Cellule = Format(Replace(Cellule, " ", ""), "# ### ##0,00$"): Traité = True
If Cellule Like "*-*" Then Cellule = Format(Right(Cellule, 2) & "/" & Mid(Cellule, 6, 2) _
& "/" & Left(Cellule, 4), "dd/mm/yyyy"): Traité = True
If Cellule Like "2009*" Or Cellule Like "2010*" Then Cellule = Format(Right(Cellule, 2) & "/" & Mid(Cellule, 5, 2) _
& "/" & Left(Cellule, 4), "dd/mm/yyyy"): Traité = True
If Cellule Like "*/*" Then Traité = True
If Traité = False And IsNumeric(Cellule) Then Cellule = Format(Cellule, "# ### ###")
Next
End Sub