Sub PA()
Dim Fichier, WbkDon As Workbook, T(), L As Long
'Acceleration du traitement des données
Application.ScreenUpdating = False
'Ouverture fenêtre de selection du fichier d'entrée
Fichier = Application.GetOpenFilename
If VarType(Fichier) <> vbString Then Exit Sub
'Ouverture du fichier
Set WbkDon = Workbooks.Open(Filename:=Fichier)
'Copie données fichier d'entrée vers fichier de sortie
T = WbkDon.Worksheets(1).Range("A1:T5000").Value
For L = 2 To 5000
If IsDate(T(L, 3)) And VarType(T(L, 3)) = vbString Then T(L, 3) = CDate(T(L, 3))
Next L
ThisWorkbook.Worksheets("BDD PA").Range("A1:T5000").Value = T
'Fermeture du classeur
WbkDon.Close
'Message
MsgBox "Import terminé"
End Sub