Collage conditionnée et automatisé

Sub traiter()
    Dim i&, fin&, col As Variant
    Dim cellule As Range
    i = 1
    For Each col In Array(100, 4, 1, 5, 6, 100, 7, 100, 100, 5, 100, 20, 20, 100, 100, 100, 100, 100, 100, 100, 100)
        Feuil1.Columns(col).Copy Feuil2.Columns(i): i = i + 1
    Next
    Feuil2.Columns("A:M").AutoFit
    For Each cellule In Range("L2:M" & Range("L65535").End(xlUp).Row)
    cellule = cellule * 12
    Next cellule
End Sub

Sub traiter()
    Dim i&, fin&, col As Variant
    Dim cellule As Range
    i = 1
    For Each col In Array(100, 4, 1, 5, 6, 100, 7, 100, 100, 5, 100, 20, 20, 100, 100, 100, 100, 100, 100, 100, 100)
        Feuil1.Columns(col).Copy Feuil2.Columns(i): i = i + 1
    Next
    Feuil2.Columns("A:M").AutoFit
    For Each cellule In Range("L2:M" & Range("L65535").End(xlUp).Row)
    cellule = cellule * 12
    Next cellule
    For Each cellule In Range("H2:I" & Range("L65535").End(xlUp).Row)
    cellule = "L"
    Next cellule
End Sub