Macro recherche

Sub TEST1()
Dim i&, j&, x&, y&, cl&, dest As Worksheet, wb As Workbook
j = 10
Set dest = Workbooks("CAISSE2.xls").Sheets("Résultat")
For cl = 2 To 4
    On Error Resume Next
    Set wb = Workbooks("CAISSE" & cl & ".xls")
    If Err = 0 Then
        With wb.Sheets(1)
            For i = 2 To .Range("F65536").End(xlUp).Row
                If .Range("F" & i) Like "Visa*" Then
                    dest.Range("A" & j + x) = .Range("L" & i)
                    x = x + 1
                ElseIf .Range("F" & i) Like "Virement*" Then
                    dest.Range("B" & j + y) = .Range("L" & i)
                    y = y + 1
                End If
            Next
            If x > y Then j = j + x Else: j = j + y
            x = 0
            y = 0
        End With
    End If
Next
End Sub

Sub TESTLUNDI()
Dim i&, j&, x&, y&, cl&, dest As Worksheet, wb As Workbook
j = 10
With Workbooks("CAISSE2.xls")
    Set dest = .Sheets("Résultat")
    dest.Cells.Clear
End With
For cl = 2 To 6
    On Error Resume Next
    Set wb = Workbooks("CAISSE" & cl & ".xls")
    If Err = 0 Then
        With wb.Sheets(1)
            For i = 2 To .Range("F65536").End(xlUp).Row
                If .Range("F" & i) Like "Visa*" And .Range("L" & i) <> 0 Then
                    dest.Range("A" & j + x) = .Range("L" & i)
                    x = x + 1
                ElseIf .Range("F" & i) Like "Virement*" And .Range("L" & i) <> 0 Then
                    dest.Range("B" & j + y) = .Range("L" & i)
                    y = y
                End If
            Next
            If x > y Then j = j + x Else: j = j + y
            x = 0
            y = 0
        End With
    End If
Next
End Sub