Salut ngynvn,
pas mon truc, les formules...
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iCol%, sItem$
'
If Not Intersect(Target, Range("K4:K6")) Is Nothing Then
iCol = Rows(3).Find(what:=Target.Offset(0, -1), lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext).Column
For x = 4 To Range(Chr(64 + iCol) & Rows.Count).End(xlUp).Row
sItem = sItem & IIf(Cells(x, iCol + 1) >= Target, Cells(x, iCol) & " ", "")
Next
[K8] = IIf(sItem = "", "-", sItem)
Columns(11).AutoFit
End If
'
End Sub
A+