Sub test()
Dim dl1 As Integer, dl2 As Integer, i As Integer
Set arbo = Workbooks("Arbo.xlsx").Sheets("Sheet1")
Set eotp = ThisWorkbook.Sheets("EOTP")
dl1 = arbo.Range("A" & Rows.Count).End(xlUp).Row
arbo.Range("B2:C" & dl1).Copy eotp.Range("A8")
With eotp
dl2 = eotp.Range("A" & Rows.Count).End(xlUp).Row
.Range("A8:B8").Interior.ColorIndex = 4 'RGB(0, 255, 0)
For i = 8 To dl2
If .Range("B" & i) = "COMPTES TRANSITOIRES" Or .Range("B" & i) = "INTRA" Or .Range("B" & i) = "EXTRA" Then
.Range("A" & i & ":B" & i).Interior.ColorIndex = 3 'RGB(0, 176, 240)
End If
If .Range("B" & i) = "COMPTE PROVISOIRE" Or .Range("B" & i) = "PRODUCTION" Or .Range("B" & i) = "AUTRES MATERIAUX" Or .Range("B" & i) = "MATOS" Or .Range("B" & i) = "ACHATS" Then
.Range("A" & i & ":B" & i).Interior.ColorIndex = 8 'RGB(255, 51, 0)
End If
Next i
End With