Public Function Gen_Liste(rngTab As Range, clé As Variant)
Dim lig As Long, col As Long
Dim i As Long 'Indice dans le tableau result
Dim result() As Variant
ReDim result(1 To (rngTab.Rows.Count - 1) * (rngTab.Columns.Count - 1))
For i = 1 To UBound(result): result(i) = "": Next i
i = 0
For lig = 2 To rngTab.Rows.Count
For col = 2 To rngTab.Columns.Count
If rngTab.Cells(lig, col).Value = clé Then
i = i + 1
result(i) = rngTab(1, col) & rngTab(lig, 1)
End If
Next col
Next lig
Gen_Liste =...