Bonjour à tous,
Je pense qu'il serait plus simple d'alterner 2 couleurs, car pour une couleur aléatoire, il faudra tester qu'elle soit différente de la précédente, le hasard ne faisant pas toujours bien les choses!
Voici ce que ça pourrait donner:
Sub couleur()
Dim AncienneCouleur
Range("C4
8").Copy
Workbooks.Open Filename:= _
"E:\Documents and Settings\Fabien.RICHARD\Desktop\Classeur2.xls"
AncienneCouleur=Range("C6").End(xlDown).Interior.ColorIndex
Range("C6").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
if AncienneCouleur=8 then
Range(ActiveCell.End(xlDown), ActiveCell.End(xlDown).Offset(-4, 1)).Interior.ColorIndex = 4 'L'autre couleur que tu souhaites!
else
Range(ActiveCell.End(xlDown), ActiveCell.End(xlDown).Offset(-4, 1)).Interior.ColorIndex = 8
end if
ActiveWorkbook.Save
End Sub
Voilà, bonne journée.