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