Macro excel, Problème affichage date

Bonjour,

J'aurais besoin d'aide pour un affichage de date.
Voila j'ai une macro qui me permet de prendre des données sur un autre tableau sur une autre feuille et de les collées sur mon autre feuille. Le problème c'est que mes données dates ce transforme en nombre.

voici mon code :

Sub filtre2()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("Alert").Activate ' feuille de destination

Col = "I" ' colonne données non vides à tester'
NumLig = 2 ' alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("PAR CENTRE") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, 4).Value <> "" Then

Sheets("Alert").Cells(NumLig, 2).Resize(1, 2).Insert Shift:=xlDown
' les 2 colonnes sont décalées pour rester cohérent
Sheets("Alert").Cells(NumLig, 2) = .Cells(Lig, 4)
End If
If IsDate(.Cells(Lig, 12).Value) Then

Sheets("Alert").Cells(NumLig, 3) = .Cells(Lig, 12)

End If
Next Lig
End With
End Sub

voila donc si quequ'un peut m'aider.
merci