Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, col%, tablo, i&, liste$
Set P = [A1].CurrentRegion.Resize(, 11)
P.Offset(P.Rows.Count + 3).Resize(Rows.Count - P.Rows.Count - 3).Validation.Delete 'RAZ
col = ActiveCell.Column
If ActiveCell.Row < P.Rows.Count + 4 Or col = 1 Or col > 11 Then Exit Sub
tablo = P
For i = 3 To UBound(tablo)
If LCase(tablo(i, col)) = "présent" Then liste = liste & "," & tablo(i, 1)
Next
ActiveCell.Validation.Add xlValidateList, Formula1:=Mid(liste, 2)
End Sub