Sub CopierCollerSelection()
Dim i As Integer
Dim DerLigne As Long
'Remise à zéro des couleurs
'Cells.Interior.ColorIndex = xlNone
' colorier selon secteurs
For i = Range("A1000").End(xlUp).Row To 2 Step -1
If Cells(i, 1) <> "" Then
If Cells(i, 2).Interior.ColorIndex = 36 Then
' Range(i, 2), (i, 28).Activate
Cells(i, 2).Select
Call Valeur
Cells(i, 21).Select
Call Valeur
Cells(i, 25).Select
Call Valeur
Cells(i, 26).Select
Call Valeur
Cells(i, 27).Select
Call Valeur
Cells(i, 28).Select
Call Valeur
End If
End If
Next i
DerLigne = Range("a1000").End(xlUp).Row + 1
Range("A" & DerLigne).Activate
End Sub