Bonsoir,
une fonction personnalisée est une fonction écrite sur mesure en vba pour répondre à un besoin pour lequel il n'existe pas de fonction standard excel.
voici le code de la fonction personnalisée.
Function doublons(r)
s = ""
For Each c In r
If Application.CountIf(r, c.Value) > 1 Then
If InStr(s, "|" & c.Value & "|") = 0 Then s = s & "|" & c.Value & "|"
End If
Next c
If s <> "" Then s = Replace(Replace(s, "||", " "), "|", "")
s = Split(s, " ")
For i = LBound(s) To UBound(s) - 1
For j = i + 1 To UBound(s)
If s(i) > s(j) Then a = s(i): s(i) = s(j): s(j) = a
Next j
Next i
doublons = Join(s, " ")
End Function