Sub Inventaire()
Dim T(), L&, C&, D As New Dictionary
T = [PlaGe].Value
For L = 1 To UBound(T, 1): For C = 1 To UBound(T, 2)
If T(L, C) <> "" Then D(T(L, C)) = 1
Next C, L
Feuil1.[N1:N500].Value = Empty
Feuil1.[N1].Resize(D.Count) = WorksheetFunction.Transpose(D.Keys)
End Sub