VBA：将数据从一个工作簿传输到另一工作簿的问题

Question

Dim wb As Workbook

    Set synthese = Sheets("Synthèse")
    Set wb = Workbooks.Open(Filename:="C:\Users\bm00096\Desktop\Stage PMTC AHMAD MUHAMAD 2018\RFE Management\Experimentation of outil and analysis\Evolution RFE_ANALYSIS v3.0.xlsm")
    wb.Sheets("Base").Visible = True
    Sheets("Base").Unprotect "roulage_ASVH"
    wb.Sheets("Base").Select

    i = 1

    While wb.Sheets("Base").Cells(i, 1).Value <> ""
        i = i + 1
    Wend

    synthese.Cells.Range("A2:AI100").Copy
    wb.Sheets("Base").Cells(i, 1).Select
    ActiveSheet.Paste
    Sheets("Base").Protect "roulage_ASVH"
    ActiveWindow.SelectedSheets.Visible = False
    wb.RefreshAll
    wb.Close True
    Application.CutCopyMode = False
    Set wb = Nothing
    Set synthese = Nothing

    Sheets("Synthèse").Unprotect "roulage_ASVH"
    Sheets("Synthèse").Range("A2:AI200").ClearContents
    Sheets("Synthèse").Protect "roulage_ASVH"

End Sub

嗨，大家好，基本上我有300条来自'Synthèse'表的数据，我想将这些数据传输到'Base'表的另一本工作簿中。因此，我编写了一个代码来传输这些数据，这些代码确实可以很好地传输数据。但是，问题在于，它仅传输98行数据，而不是全部300条数据。我尝试将两个工作簿的格式更改为相同的格式，但仍然不起作用。请帮助我解决这个问题。