Bonsoir Matthieu,
Pardonne-moi si je n'ai pas tout compris, mais je ne vois pas trop où se trouve la difficulté :
Set Target = Worksheets('poutre continu').Range('c11:cf11')
Dim cellule As Range
For Each cellule In Target
With cellule.Interior
If .ColorIndex = 36 Or .ColorIndex = 37 Then
cellule.Borders.ColorIndex = 0
Else
cellule.Borders.ColorIndex = 15
End If
End With
Next
En espérant que cela réponde à tes souhaits...
Amicalement
Lionel