Bonjour dylan74200, le forum,
Un sujet similaire a été traité ici:
https://forum.excel-pratique.com/viewtopic.php?p=849116#p849116
Sub test()
Dim Cel As Range, pl As Range
For Each Cel In Range("A1:F20") 'à adapter
If Cel.Interior.ColorIndex = 6 Then
If Not pl Is Nothing Then Set pl = Union(pl, Cel) Else Set pl = Cel
End If
Next Cel
pl.Select
End Sub
Cordialement,