Sub Lamho27()
Dim Dico, i As Long, j As Byte
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Feuil1")
For j = 2 To 13 ' pour chaque colonne de B à M
For i = 3 To .Cells(Cells.Rows.Count, j).End(xlUp).Row
Dico(CStr(.Cells(i, j))) = ""
Next
Next
.Cells(3, 14).Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End With