bonjour,
solution via une macro
Sub aargh()
Set pl = Range("A5:A35")
Range("B6:F35").ClearContents
For i = 67 To 500
If Cells(i, 1) = "Matinée" Then
d = 0
ElseIf Cells(i, 1) = "Après-midi" Then
d = 1
ElseIf Cells(i, 2) <> "" Then
Set re = pl.Find(Cells(i, 2), lookat:=xlWhole, LookIn:=xlValues)
If Not re Is Nothing Then
Cells(re.Row + d, 2) = Cells(re.Row + d, 2) + 1
End If
End If
Next i
End Sub