Sub RécupInfos()
Dim Colonnes() As Integer
Dim MaFeuille As Worksheet
Dim ColonnesMaFeuille As Integer
Dim NewFeuille As Worksheet
Dim ColonnesNewFeuille As Integer

Set MaFeuille = Worksheets("Feuil1")

ReDim Colonnes(8) '8 etant le nombre de colonne que tu veux - 1
Colonnes(0) = 1
Colonnes(1) = 2
Colonnes(2) = 3
Colonnes(3) = 5
Colonnes(4) = 6
Colonnes(5) = 7
Colonnes(6) = 9
Colonnes(7) = 64
Colonnes(8) = 80

Set NewFeuille = ThisWorkbook.Worksheets.Add(after:=MaFeuille)
With NewFeuille
    .Name = "Temp"
End With

ColonnesNewFeuille = 1
For i = 0 To 8
    MaFeuille.Columns(Colonnes(i)).EntireColumn.Copy
    NewFeuille.Columns(ColonnesNewFeuille).EntireColumn.Select
    Selection.PasteSpecial
    ColonnesNewFeuille = ColonnesNewFeuille + 1
Next
    
NewFeuille.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Données S." & Format(Date, "ww") & ".xlsx"
ActiveWorkbook.Close

Application.DisplayAlerts = False
NewFeuille.Delete
Application.DisplayAlerts = True

End Sub