Bonjour
solution avec une fonction personnalisée, voir fichier joint
Function listetri(critere, plageselection, plagetri)
Dim t(), o()
ReDim t(1 To plagetri.Count)
ReDim o(1 To plagetri.Count)
k = 0
For Each cel In plageselection
If cel.Value = critere Then
k = k + 1
t(k) = plagetri.Cells(cel.Row, 1)
o(k) = cel.Row - 1
End If
Next
For i1 = 1 To k - 1
For i2 = i1 + 1 To k
If t(i1) < t(i2) Then a = t(i1): t(i1) = t(i2): t(i2) = a: a = o(i1): o(i1) = o(i2): o(i2) = a
Next i2
Next i1
ReDim Preserve o(1 To k)
listetri = Join(o, "-")
End Function