macro pour colorier les lignes traitées

[superbog]

bonjour,

pourriez vous m'aider à modifier la macro ci dessous. Avec cette macro, la première cellule de la ligne est en rouge, c'est parfait mais je souhaite que cela s'applique exclusivement aux lignes traitées et pas à toute la colonne. Je n'y arrive pas.
merci d'avance




Sub projet_macro_tp()
Dim co(0 To 3) As String 'déclare le tableau de variables co (Classeur Onglet)
Dim x As Byte 'déclare la variable x (incrément)
Dim cs As Workbook 'déclare la variable cs (Classeur Source)
Dim os As Worksheet 'déclare la variable os (Onglet Source)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)

co(0) = "BB" 'définit la première variable du tableau co
co(1) = "EP" 'définit la deuxième variable du tableau co
co(2) = "VR" 'définit la troisième variable du tableau co
co(3) = "VM" 'définit la quatrième variable du tableau co
For x = 0 To 3 'boucle 1 : sur toutes les variables du tableau co
Set cs = Workbooks("tp1.xlsx") 'définit le classeur source
Set os = cs.Sheets(co(x)) 'définit l'onglet source
With os 'prend en comple l'onglet source du classeur source
For Each cel In .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle 2 : sur toutes les cellules éditées cel de la colonne A
If cel.Interior.ColorIndex <> 3 Then 'condition si la cellule n'a pas l'intérieur coloré de rouge
Set dest = Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
cel.EntireRow.Copy dest 'copie et la colle dans la cellule de destination
cel.Interior.ColorIndex = 3 'colore la ligne de rouge
End If 'fin de la condition
Next cel 'prochaine cellule cel de la boucle 2
End With 'fin de la pris en compte de l'onglet source du classeur source
Next x 'prochaine variavle de la boucle 1

MsgBox "opération effectuée"

End Sub