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