merci robert, une petite question subsidiaire

Re salut vwtroudy, le forum,

Voici une seconde macro pour ça :

Public Sub doubl2()
Dim celo As Range
Dim celc As Range
Dim plag1 As Range
Dim plag2 As Range
Set plag1 = Range("D1" & Range("D65536").End(xlUp).Row)
Set plag2 = Range("L1:L" & Range("L65536").End(xlUp).Row)
For Each celc In plag2
For Each celo In plag1
If celc.Value = celo.Value Then
celc.Font.ColorIndex = 3
End If
Next celo
Next celc
End Sub

À plus,

Robert

p.s. Si ça va pas reste sur le même fil, c'est plus facile à suivre...

cette fonction occasionne une erreur

celc.Font.ColorIndex = 3

Re...

Désolé, pas d'erreur sur mon PC, je comprends pas pourquoi ça buggue chez toi.

À plus,

Robert

j'ai fait une petite modif et maintenant ça marche