Boujour pouvez vous m'aidez a regler ce soucis ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
   ThisWorkbook.Sheets("Feuil2").Range("A" & DerLig) = CDate(Mid(ActiveWorkbook.ActiveSheet.Range("A" & j), 10, 17))
        ThisWorkbook.Sheets("Feuil2").Range("B" & DerLig) = Mid(ActiveWorkbook.ActiveSheet.Range("A" & j), 179, 11)
Erreur 13 : Imcompatibilité de type

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Dim Fichier_traite As String, j As Long
Dim Chemin As String, DerLig_Fichier_traite As Integer, DerLig As Integer
Dim Premiere_Ligne As Integer, Derniere_Ligne As Integer, i As Integer, DerLig_IP As Integer