Comparer deux fichiers et ajouter les données manquantes

Bonjour,
Je souhaite comparer 2 fichiers et ajouter les données manquantes dans mon fichier de sorti. Malheureusement mon code ci-dessous ne s'arrête pas quand je lance la compilation. Pouvez m'aider à l'identifier l'erreur dans mon code, car je ne trouve pas. Merci d'avancé!

Dim f1 As Worksheet, f2 As Worksheet
Dim LastLine As Long, LastLine2 As Long, i As Long
Dim Cel As Range, Date_min1 As Date, Date_max1 As Date, lig As Long

Workbooks(nomsource2).Activate
Workbooks(nomsource2).Sheets("Application").Select
Set f1 = Sheets("Application")
LastLine = f1.Cells(Columns(3).Cells.Count, 4).End(xlUp).Row 'recherche de la dernière ligne non vide (3iè colonne)

Workbooks(nomcible).Activate 'Activer le fichier excel Taux_D'Utilisation_ARDART
Workbooks(nomcible).Sheets("CNPE").Select
Set f2 = Sheets("CNPE")
LastLine2 = f2.Cells(Columns(2).Cells.Count, 3).End(xlUp).Row + 1 'recherche de la dernière ligne non vide + 1 (2iè colonne)

For Each Cel In f1.Range("C3:C" & LastLine) 'Boucle pour chaque application Cherchée dans les applications nationales

Set resu = f2.Range("B3:B" & LastLine2).Find(What:=Cel.Value, lookat:=xlWhole)

For lig = 4 To LastLine

Date_min1 = FormatDateTime(Workbooks(nomsource2).f1.Range("AO" & lig).Value)
Date_max1 = FormatDateTime(Workbooks(nomsource2).f1.Range("AP" & lig).Value)

If Not IsEmpty((Date_min1) And (Date_max1)) Then
If (Date >= Date_min1) And (Date < Date_max1) Then
If resu Is Nothing Then
f1.Range("C" & Cel.Row).Copy Destination:=f2.Cells(LastLine2, 2)
f1.Range("I" & Cel.Row).Copy Destination:=f2.Range.Cells(LastLine2, 5)
LastLine2 = LastLine2 + 1
End If
End If
End If
Next lig
Next Cel

Set resu = Nothing
Set Cel = Nothing
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic