Sub GestionDoublons_liste(Plage As Range)
Dim Cell As Range
Dim Un As Collection
Set Un = New Collection
On Error Resume Next
For Each Cell In Plage
If Cell <> "" And Cell <> "Repos" And IsNumeric(Cell) = False Then
Un.Add Cell, CStr(Cell)
If Err <> 0 Then Cell.Interior.ColorIndex = 4
Err.Clear
End If
Next Cell
Set Un = Nothing
End Sub