Sub liste()
Dim D As Object, i As Long, Col As Long, ColDest As Long, F As Worksheet, Plg As Variant
Col = 1 'Mettre le numéro de la colonne ou se trouve les alarmes (A = 1, B = 2, C = 3, etc...)
ColDest = 2 'Mettre le numéro de colonne ou l'on va coller les alarmes sans doublon
Set F = Sheets("Feuil3") ' Mettre le nom de la feuille*
Set D = CreateObject("Scripting.Dictionary")
With F
Plg = .Range(.Cells(2, Col), .Cells(Rows.Count, Col).End(xlUp)).Value
For i = LBound(Plg, 1) To UBound(Plg, 1)
D(Plg(i, 1)) = D(Plg(i, 1)) + 1
Next i
.Cells(2, ColDest).Resize(D.Count, 1) = Application.Transpose(D.Keys)
.Cells(2, ColDest + 1).Resize(D.Count, 1) = Application.Transpose(D.Items)
End With
End Sub