Macro lister selon couleur écriture

Sub Macro1()
Application.ScreenUpdating = False
With Worksheets(1)
    With .Range("D1:G1")
        .AutoFilter
        .AutoFilter Field:=4, Criteria1:="<=30", Operator:=xlAnd
        .CurrentRegion.Copy Worksheets(2).[A1]
    End With
.AutoFilterMode = False
Worksheets(2).[A1].CurrentRegion.Cut .[B8]
End With
Application.ScreenUpdating = True
End Sub

    Application.ScreenUpdating = False
 
    [A1].FormulaR1C1 = "=IF(SMALL(C[6],ROW())<30,SMALL(C[6],ROW()),"""")"
 
    With Range("A1:A" & [G65536].End(xlUp).Row)
        [A1].AutoFill .Offset
        .Value = .Value
    End With

Sub Triez()
'
' Triez Macro
' Macro enregistrée le 2009-11-06 par Franck
'

    Columns("G:G").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<=30", Operator:=xlAnd
    Range("G3:G1000").Select
    Selection.Copy
    Range("C21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D3:D1000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("G:G").Select
    Selection.AutoFilter Field:=1
    Range("B8:C1198").Select
    Selection.Sort Key1:=Range("C8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

    Range("B8").Select
End Sub