Status = Array("Plage_2", "Plage_3", "Plage_4")
For Each Cp_3 In Plage_1.cells
For Each Cp_4 In Plage_jour.cells
If Status(0) = "Plage_2" Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 48
Cp_4.Interior.ColorIndex = 48
End If
ElseIf Status(1) = "Plage_3" Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 50
Cp_4.Interior.ColorIndex = 50
End If
ElseIf Status(2) = "Plage_3" Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 51
Cp_4.Interior.ColorIndex = 51
End If
End If
Next
Next