comment simplifier cette macro ?

Sub commande12()
Sheets("Liste").Select
Range("A5142").Select ( le = ": D" sans espace)
Range("A5142,Q5:Q142").Select
Range("Q5").Activate
Selection.Copy
Sheets("Bon de Commande").Select
Application.DisplayFullScreen = True
Range("C3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B2:G143").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("I1:I2"), Unique:=False
Range("G3:G141").Select
Selection.FormatConditions.Delete
Range("B1:H1").Select
End Sub

Sub commande12()
Dim f As Worksheet, f2 as Worksheet, source As Range, dest As ange
Set f = Sheets("Liste")
Set f2 = Sheets("Bon de Commande")
    With f
        Set source = .Range("A5:D142,Q5:Q142")
        Set dest = f2.Range("C3")
    source.Copy dest
    End With
    With f2
        .Range("B2:G143").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:= _
        .Range("I1:I2"), Unique:=False
        .Range("G3:G141").FormatConditions.Delete
    End With
End Sub

Sub commande12()
  
  Sheets("Liste").Range("A5:D142,Q5:Q142").Copy Destination:=Sheets("Bon de Commande").Range("C3")
  Sheets("Bon de Commande").Activate
  With ActiveSheet
    .Range("B2:G143").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
                  Range("I1:I2"), Unique:=False
    .Range("G3:G141").FormatConditions.Delete
    .Range("B1:H1").Select
  End With
End Sub