Bonjour kallran, James007
Si j'ai bien compris...
Dans la colonne 15 (par exemple qui parait libre) tu entres cette formule pour compter le nombre de personnes par "piste"
=NB.SI(DECALER('liste salariés'!C13;1;0;LIGNE()-LIGNE('liste salariés'!L1));LC(-2))
Puis dans le module événementiel de la feuille [liste salariés] tu copies ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig, col
lig = Target.Row
col = Target.Column
If col = 13 Then
Application.EnableEvents = False
If Cells(lig, 15) > 6 Then
MsgBox "La Piste " & Cells(lig, 13) & " est Complète !", vbExclamation, "Désolé !"
Cells(lig, 13) = ""
End If
Application.EnableEvents = True
End If
End Sub