bonjour et merci pour votre aide

voila ce que je voudrai faire c'est de colorier les valeur dans une plage défini

je me suis ligoté ce programme



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Doublons()
Dim Collec As New Collection, Cell As Range, Plage As Range
 
On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub
 
For Each Cell In Plage
If Cell.Value <> "" Then
Collec.Add Cell.Value, CStr(Cell.Value)
If Err <> 0 Then
Err.Clear
Cell.Interior.ColorIndex = 3
Else
Cell.Interior.ColorIndex = 4
End If
End If
Next Cell
End Sub

deux chose que voudrais évité c le form qui apparais et l'autre c'est que je n'ai qu'une seule cellule qui
ce colore

par ex: dans cette liste

A1=1 B1=5 C1=15 D1=2 E1=5 F1=12 G1=5 H1=1

1 5 15 2 5 12 5 1

et j'aimerai colorié les valeurs (A1=1 H1=1) (B1=5 E1=5 G1=5)
merci par avance pour vos reponse