Copie de fichier avec suppression de données

Bonjour à tous,

J'ai créée une macro pour une sauvegarde de fichier en supprimant certaines colonnes. Cependant, la copie ne se fait que sur une feuille de mon fichier et non sur toutes les feuilles.

Pouvez-vous me dire ce qui "cloche" dans ma macro.

Merci d'avance

Bonne journée.

Bonjour Christiam, bonjour le forum,

Ce qui cloche c'est qu'il te faut répéter l'opération sur tous les onglets concernés. Ton code modifié avec une boucle (à adapter éventuellement) :

Sub SaveCopy()
Dim O As Worksheet

Application.ScreenUpdating = False
For Each O In Worksheets
    Select Case O.Name
        Case "LISTE CHANTIER", "JF" 'rien ne se passe sur ces deux onglet (à adapter)
        Case Else
            O.Cells.Copy
            O.Range("A1").PasteSpecial (xlPasteValues)
            Application.Union(O.Columns(4), O.Columns(6)).Delete
            O.Activate
            O.Range("A1").Select
    End Select
Next O
Application.ScreenUpdating = True
ActiveWorkbook.SaveAs Filename:="Z:\NPS\XXX\Suivi des heures individuelles.xls"
End Sub

Bonjour,

Merci beaucoup !!

Bonne journée