Sub SelecQuinté()
'
Sheets("ReqCotes").Select
'
Columns("A:A").Select
Selection.Find(What:="Quinté", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
debut = ActiveCell.Offset(1, 0).Address
Fin = ActiveCell.Offset(23, 10).Address
Worksheets("Quinté").Range("a10:k39").Value = Worksheets("ReqCotes").Range("" & debut & ":" & Fin & "").Value
Sheets("ChoixCourse").Select
Range("b6").Select
End Sub