Excel filtre par date ne fonctionne pas VBA

Selection.TextToColumns FieldInfo:=Array(0, 4)
Thoughtless Tapir