Corrigez moi cette macro

Sub ouverture()
'vu
    Application.ScreenUpdating = False
    For Each Wb In Workbooks
        If Wb.Name = "XLC_Source.xls" Then    'modifier nom du fichier..........
            Workbooks(Wb.Name).Activate: k = 1
        End If
    Next
    If k = "" Then
        Chemfich = ThisWorkbook.Path & "\XLC_Source.xls"    'ici aussi.........
        On Error Resume Next
        Workbooks.Open Chemfich
        If Err <> 0 Then MsgBox "XLC_Source.xls non trouvé":  Exit Sub    'là aussi..
    End If
    ActiveWindow.WindowState = xlMinimized
    ThisWorkbook.Activate
    ActiveWindow.WindowState = xlMaximized
    With Workbooks("XLC_Source.xls").Sheets(1)    'encore ici...................
        'Feuil1.[A2:Q1000].Clear
        Feuil6.[A2:I30].Value = .[A2:I30].Value
        Feuil6.[L2:Q30].Value = .[L2:Q30].Value
    End With
    Workbooks("XLC_Source.xls").Close False    'encore ici.......................
End Sub