Sub KPI_color()
Dim i
Application.ScreenUpdating = False
For i = 4 To 500
Worksheets("Calcul").Range("S" & i).Value = Worksheets("Daily followup-UNIVIC").Range("K" & i).Interior.Color
Worksheets("Calcul").Range("V" & i).Value = Worksheets("Daily followup-UNIVIC").Range("N" & i).Interior.Color
Worksheets("Calcul").Range("Y" & i).Value = Worksheets("Daily followup-UNIVIC").Range("T" & i).Interior.Color
Worksheets("Calcul").Range("AE" & i).Value = Worksheets("Daily followup-LEU").Range("I" & i).Interior.Color
Worksheets("Calcul").Range("AH" & i).Value = Worksheets("Daily followup-LEU").Range("L" & i).Interior.Color
Worksheets("Calcul").Range("AK" & i).Value = Worksheets("Daily followup-LEU").Range("O" & i).Interior.Color
Worksheets("Calcul").Range("AP" & i).Value = Worksheets("Daily followup-2oo3").Range("F" & i).Interior.Color
Worksheets("Calcul").Range("AS" & i).Value = Worksheets("Daily followup-2oo3").Range("I" & i).Interior.Color
Worksheets("Calcul").Range("AV" & i).Value = Worksheets("Daily followup-2oo3").Range("L" & i).Interior.Color
Next i
End Sub