Copier certaines données vers une autre feuille

Sub btn_print_Clic()
Dim tablo, ligEcrit&, i&
  Application.ScreenUpdating = False
  With Sheets("Accueil")
    i = .Cells(.Rows.Count, "b").End(xlUp).Row
    tablo = .Range("b25:bw" & i)
  End With

  With Sheets("Liste")
    .Range("A2", .UsedRange.Cells(.UsedRange.Cells.Count)).ClearContents
    ligEcrit = 2
    For i = 1 To UBound(tablo) Step 2
      .Cells(ligEcrit, "b") = tablo(i, 1)  ' Nom
      .Cells(ligEcrit, "c") = tablo(i, 21)  'date
      With Sheets("accueil")
        On Error Resume Next
        Sheets("Liste").Cells(ligEcrit, "d") = .Cells(24 + i, Range("ab1").Column - 1 + Application.Match(9E+99, .Range(.Cells(24 + i, "ab"), .Cells(24 + i, "bo")), 1))
        On Error GoTo 0
      End With
      ligEcrit = ligEcrit + 1
    Next i
  End With
  Application.ScreenUpdating = True
End Sub