Sub couleurEncadrement()
Dim c As Range, couleur1 As Long, couleur2 As Long, position As Long
couleur1 = &HC00000
couleur2 = &HFFFFA0
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
For position = 7 To 12
With c.Borders(position)
If .LineStyle = xlContinuous Then
If .Weight = xlHairline Then
.Color = couleur2
Else
.Color = couleur1
End If
End If
End With
Next position
Next c
End Sub