Comparer deux colonnes de deux fichiers différents

Sub comparaison()
i = 0
j = 0
 
'On met en place un compteur pour déterminer la fin du tableau "Total"
 
Workbooks("CAM.xls").Activate
 
Dim ligne, count As Integer
 
        ligne = 1
        count = 0
    Do While Cells(ligne, 1) <> ""
     count = count + 1
     ligne = ligne + 1
    Loop
 
 
'on met un deuxième compteur en place pour j
Workbooks("Total.xls").Activate
 
Dim ligne2, count2 As Integer
 
        ligne2 = 1
        count2 = 0
    Do While Cells(ligne2, 1) <> ""
     count2 = count2 + 1
     ligne2 = ligne2 + 1
    Loop
 
 
'Do While Workbooks("CAM.xls").Sheets(1).Cells(1, 1).Value <> ""
    Do While i < count
        
            If Workbooks("CAM.xls").Sheets(1).Cells(i + 1, 2).Value = _
            Workbooks("Total.xls").Sheets(1).Cells(j + 1, 1).Value Then
       
               Workbooks("Total.xls").Activate
               Workbooks("Total.xls").Sheets(1).Cells(j + 1, 2).Select
               Selection.Copy
               Workbooks("CAM.xls").Activate
               Workbooks("CAM.xls").Sheets(1).Cells(i + 1, 8).Select
               Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
    
            i = i + 1
            j = 0
    
            ElseIf Workbooks("CAM.xls").Sheets(1).Cells(i + 1, 2).Value <> _
            Workbooks("Total.xls").Sheets(1).Cells(j + 1, 1).Value And j < count2 Then
            
            j = j + 1
            
            Else
            i = i + 1
            j = 0
            End If
    
Loop
End Sub