copier ligne rouge

For i = 1 To Range("A65000").End(xlUp).Row
  If Range("A" & i).Interior.ColorIndex = 3 Then
      Range(Range("A" & i), Range("B" & i)).Select
       Selection.Copy
      Sheets("Feuil3").Select
       Range("A65000").End(xlUp).Offset(1, 0).Select
        'ActiveSheet.Paste ...ou
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
      Sheets("Feuil2").Select
  End If
Next i

 Sub copycol()
Dim i As Byte
Application.ScreenUpdating = False
Sheets("feuil2").Activate
For i = 6 To Range("A65000").End(xlUp).Row
If Range("A" & i).Interior.ColorIndex = 3 Then
Range(Range("A" & i), Range("B" & i)).Copy Destination:=Sheets("feuil3")_
.Range("A65000").End(xlUp).Offset(1, 0)
End If
Next i
Application.ScreenUpdating = True
End Sub