Date non validée après macro

Bonjour,

j'ai une macro vba qui me reporte dans l'onglet "archivage" en fin de colonne une date située dans Range("macros!af3") sous ce format (jj/mm/aaa).jusque la tout marche très bien sauf que quand je veux filtrer cette date impossible! on dirait qu'elle n'est pas validée en tant que date et ne filtre rien!! alors j'ai créé une autre macro pour convertir la colonne en date et ca ne marche pas non plus!

Voici mes deux macros:

Dim lig8 As Long
With Sheets("archivage")
lig8 = .UsedRange.Rows.Count + 1
While .Cells(lig8 - 0, 1).Value = ""
lig8 = lig8 - 1
Wend
.Cells(lig8, 8).Value = Range("macros!af3")
End With

ma deuxième macro:
Sheets("archivage").Select
Columns("H:H").Select
Range("H35775").Activate

Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 3), TrailingMinusNumbers:=True