Erreur d'éxécution 1004

Bonjour,

Voici le problème:

La méthode Delete de la classe Range à échoué

Voici le code:

Sheets("cumulé").Activate
Columns.Select
Selection.Columns.Ungroup
    Columns("B:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("L").Select
    Selection.Delete Shift:=xlToLeft

Le bug est sur la 5eme ligne, je comprends pas pourquoi ça ne fonctionne pas ! si quelqu'un à une idée

Bonjour

Première idée

Vérifies si ta page n'est pas protégée

Bonne journée

Merci mais elle n'est pas protégée !

Bonjour

Essaie ceci :

With Sheets("cumulé")
.Activate
.Columns("B:D").Delete Shift:=xlToLeft
.Columns("D:F").Delete Shift:=xlToLeft
.Columns("L").Delete Shift:=xlToLeft
End with

Amicalement

Il me met une erreur sur la troieme ligne, arf

Bonjour

Joins le fichier fautif

A suivre