Transfert de données - Deux classeurs - vba

Sub UnVersDeux()
  Dim WbSource As Workbook, WbDest As Workbook, Chemin As String
  Dim WsDest As Worksheet, Rng As Range, Cel As Range, L As Long, C As Integer

  With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
  End With
  Chemin = ThisWorkbook.Path  'suppose que les 2 classeurs sont dans le même dossier
  Set WbSource = ThisWorkbook  'classeur du code
  [COLOR="Red"]If IsWorkbookOpen("Classeur2-esclave.xls") = True Then
    Set WbDest = Workbooks("Classeur2-esclave.xls")  'on peut tester si ouvert,si pas ouvert l'ouvrir
  Else
    Workbooks.Open Filename:=Chemin & "\" & "Classeur2-esclave.xls"
    Set WbDest = ActiveWorkbook
  End If[/COLOR]
 Set WbDest = Workbooks("Classeur2-esclave.xls")
  With WbSource.Worksheets("Feuil1")
    Set Rng = .Range("A2:A" & .Range("A65536").End(xlUp).Row)  'crit5 classeur source
  End With
  For Each Cel In Rng
    With WsDest
      For L = 2 To .Range("A65536").End(xlUp).Row
        [COLOR="Blue"]If Cel <> "" Then
          If Cel & Cel.Offset(0, 1) = .Cells(L, 1) & .Cells(L, 2) Then
            C = Cel.Offset(0, 4)
            If C = 0 Or C = 1 Then .Cells(L, 3) = C + 1
          End If[/COLOR]
        End If
      Next L
    End With
  Next Cel
  With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
  End With
End Sub