问从另一个工作表导入行及其公式

EN

Public Sub refresh()
'
' refresh Macro
'
' Touche de raccourci du clavier: Ctrl+y
'
Dim ws1 As Worksheet, ws2 As Worksheet, lr1 As Long, lRow As Long

    Set ws1 = ThisWorkbook.Worksheets("Scénarios de menace")
    Set ws2 = ThisWorkbook.Worksheets("Analyse de risque")
    Application.Calculation = xlCalculationAutomatic

    ws2.Range("B6:AP" & ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row).Clear
    lr1 = ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row
    Sheets("Scénarios de menace").Select
    Range("B4:Z398").Select
    Selection.Copy
    Sheets("Analyse de risque").Select
    Range("B6:Z400").Select
    ActiveSheet.Paste


    ws1.Range("A1:A" & lr1).AutoFilter Field:=1, Criteria1:="X"
    ws1.Range("B3:AP" & lr1).SpecialCells(xlCellTypeVisible).Copy

    ws2.Range("B6").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    ws1.Range("A6:A" & lr1).AutoFilter
    ws2.Activate: ws2.Cells(1, 1).Activate




End Sub