[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_Change([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] N [COLOR=NAVY]As Byte
If Not[/COLOR] Application.Intersect(Target, Columns(3)) [COLOR=NAVY]Is Nothing Then[/COLOR]
N = Application.CountIf(Columns(3), Target.Value)
[COLOR=NAVY]If[/COLOR] N > 9 [COLOR=NAVY]Then[/COLOR]
MsgBox N & " agents convoqués pour le " & Target.Value
[COLOR=NAVY]End If
End If
End Sub[/COLOR][/SIZE]