Sub FinAdaptation()
Dim dl&, x&, f As Worksheet: Set f = Sheets("Horaires")
Application.ScreenUpdating = False
x = f.Cells(55, "A").End(3).Row
f.Range(f.Cells(22, "A"), f.Cells(x, "A")).Copy
With Sheets("Suivi")
dl = .Cells(Rows.Count, 3).End(3)(3).Row
.Cells(dl, "C").PasteSpecial xlValues
f.Range(f.Cells(22, "C"), f.Cells(x, "E")).Copy
.Cells(dl, "D").PasteSpecial xlValues
.Cells(dl, 1) = Date: .Cells(dl, 2) = f.[M26].Text
.Range(.Cells(dl, 7), .Cells(dl, 10)) = _
Array(f.[G46].Value, f.[G23].Range("A1").Value, f.[G29].Range("A1").Value, f.[G35].Range("A1").Value)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub