Sub Esquisse()
Dim c As Range, col&
For Each c In Range("a4:a70")
Select Case c
Case 1956 To 1959
With Feuil2
'pour test
col = Application.Match(c, .Rows(1), 0)
MsgBox .Cells(5, col).Offset(, 3).Address(0, 0)
'on identifie bien la bonne cellule
End With
Case 1960 To 1969
'
Case 1970 To 1979
'
Case 1980 To 1989
'
Case 1990 To 1999
'
Case 2000 To 2010
End Select
Next
End Sub