Sub cherche()
Dim c As Range, col As Integer, varcol As Integer
'recherche le nom sur la feuille année
Set c = Sheets("Année").Columns(1).Find(what:=Range("a3").Value, LookIn:=xlValues)
If c Is Nothing Then Exit Sub
'recopie les données qui correspondent a la date de debut et a la date de fin...
varcol = 4
For col = Range("b3").Value - Sheets("Année").Range("B1").Value To Range("c3").Value - Sheets("Année").Range("B1").Value
Cells(3, varcol).Value = Sheets("Année").Cells(c.Row, varcol).Value
varcol = varcol + 1
Next
End Sub