Sub report()
For n = 1 To Sheets("Prono").Range("B" & Rows.Count).End(xlUp).Row
If InStr(Sheets("Prono").Range("B" & n), "Hippodrome") <> 0 Then
f = Replace(Sheets("Prono").Range("B" & n), "Course: ", "")
f = "TAB " & Replace(Left(f, 3), ".", "")
For m = n + 1 To Sheets("Prono").Range("B" & Rows.Count).End(xlUp).Row
If InStr(Sheets("Prono").Range("B" & m), "Hippodrome") <> 0 Then
fin = m - 1
Exit For
End If
Next
derlin = Sheets(f).Range("B" & Rows.Count).End(xlUp).Row
Sheets("Prono").Range(Cells(n, 2), Cells(fin, "AI")).Copy Destination:=Sheets(f).Range("B" & derlin)
End If
Next
End Sub