Bonsoir Eric, Wayki,
D'après ce que j'ai compris :
VB:
Sub Catégorie()
Naissance = [F14]
Date1 = CDate("30/09/" & [AB1] - 8)
Date2 = CDate("01/10/" & [AB1] - 10)
If Naissance >= Date1 Then
MsgBox "Poussins"
ElseIf Naissance <= Date1 And Naissance >= Date2 Then
MsgBox "Minimes"
End If
End Sub