aide sur une macro copie

Sub MAJ()
  Application.ScreenUpdating = False
  Sheets("Feuil3").Activate
  Dim Tableau()
  With Sheets("Feuil1")
    ' Trouver le nombre de ligne en partant de la ligne 23 vers le bas
    nbrlign = .Range("C23").End(xlDown).Row - 23
    ReDim Tableau(1 To nbrlign, 1 To 7)
    For i = 1 To UBound(Tableau, 1)
      Tableau(i, 1) = .Cells(16, 7)
      Tableau(i, 2) = .Cells(4, 7)
      For j = 3 To UBound(Tableau, 2)
        Tableau(i, j) = .Cells(i + 23, j)
      Next j
    Next i
    Sheets("Feuil3").Range("A" & Range("A" & Application.Rows.Count).End(xlUp).Row + 1).Resize(UBound(Tableau, 1), 7) = Tableau
    Sheets("Feuil3").Range("G" & Range("G" & Application.Rows.Count).End(xlUp).Row + 1).Value = .Range("G" & nbrlign + 1).Value
    Sheets("Feuil3").Range("G" & Range("G" & Application.Rows.Count).End(xlUp).Row + 1).Value = .Range("G" & nbrlign + 2).Value
    Sheets("Feuil1").Activate
    Application.ScreenUpdating = True
  End With
End Sub