Mon application crée des feuilles cachées qui se nomment dialogueN leur N°
s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Bonjour.
Essaie (fais une sauvegarde avant) :
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
--
Cordialement.
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
eQKLB6QKJHA.4772@TK2MSFTNGP03.phx.gbl...
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N°
s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Jol
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:OSJWLERKJHA.3976@TK2MSFTNGP03.phx.gbl...
Bonjour.
Essaie (fais une sauvegarde avant) :
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
--
Cordialement.
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
eQKLB6QKJHA.4772@TK2MSFTNGP03.phx.gbl...
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Daniel.C
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
OKNSX1SKJHA.4940@TK2MSFTNGP05.phx.gbl...
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:OSJWLERKJHA.3976@TK2MSFTNGP03.phx.gbl...
Bonjour.
Essaie (fais une sauvegarde avant) :
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
--
Cordialement.
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
eQKLB6QKJHA.4772@TK2MSFTNGP03.phx.gbl...
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Jol
Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets Erreur d'exécution '13' incompatilité de type Merci encore
"Daniel.C" a écrit dans le message de news:
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets
Erreur d'exécution '13'
incompatilité de type
Merci encore
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:e7JxRATKJHA.4280@TK2MSFTNGP04.phx.gbl...
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
OKNSX1SKJHA.4940@TK2MSFTNGP05.phx.gbl...
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:OSJWLERKJHA.3976@TK2MSFTNGP03.phx.gbl...
Bonjour.
Essaie (fais une sauvegarde avant) :
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
--
Cordialement.
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
eQKLB6QKJHA.4772@TK2MSFTNGP03.phx.gbl...
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.
Toujours le même point d'arrêt au même endroit For Each sh In Sheets Erreur d'exécution '13' incompatilité de type Merci encore
"Daniel.C" a écrit dans le message de news:
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
michdenis
Si tu déclares ta variables comme ceci :
Dim sh As Worksheet
Utilises : For each Sh in Worksheets (ne s'occupe pas des feuilles graphique)
Si tu tiens à utiliser :
For each Sh in sheets Déclare ta variable comme ceci : Dim Sh as Object
"Jol" a écrit dans le message de news: % Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets Erreur d'exécution '13' incompatilité de type Merci encore
"Daniel.C" a écrit dans le message de news:
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Si tu déclares ta variables comme ceci :
Dim sh As Worksheet
Utilises : For each Sh in Worksheets
(ne s'occupe pas des feuilles graphique)
Si tu tiens à utiliser :
For each Sh in sheets
Déclare ta variable comme ceci :
Dim Sh as Object
"Jol" <nospam@club.fr> a écrit dans le message de news:
%23TJ0aGWKJHA.2444@TK2MSFTNGP06.phx.gbl...
Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets
Erreur d'exécution '13'
incompatilité de type
Merci encore
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:e7JxRATKJHA.4280@TK2MSFTNGP04.phx.gbl...
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
OKNSX1SKJHA.4940@TK2MSFTNGP05.phx.gbl...
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:OSJWLERKJHA.3976@TK2MSFTNGP03.phx.gbl...
Bonjour.
Essaie (fais une sauvegarde avant) :
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
--
Cordialement.
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
eQKLB6QKJHA.4772@TK2MSFTNGP03.phx.gbl...
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.
Utilises : For each Sh in Worksheets (ne s'occupe pas des feuilles graphique)
Si tu tiens à utiliser :
For each Sh in sheets Déclare ta variable comme ceci : Dim Sh as Object
"Jol" a écrit dans le message de news: % Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets Erreur d'exécution '13' incompatilité de type Merci encore
"Daniel.C" a écrit dans le message de news:
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
Jol
En plus ça marche impec.
Merci à tous les deux.
"michdenis" a écrit dans le message de news:%
Si tu déclares ta variables comme ceci :
Dim sh As Worksheet
Utilises : For each Sh in Worksheets (ne s'occupe pas des feuilles graphique)
Si tu tiens à utiliser :
For each Sh in sheets Déclare ta variable comme ceci : Dim Sh as Object
"Jol" a écrit dans le message de news: % Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets Erreur d'exécution '13' incompatilité de type Merci encore
"Daniel.C" a écrit dans le message de news:
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.
Merci
En plus ça marche impec.
Merci à tous les deux.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23TFPmLWKJHA.1556@TK2MSFTNGP03.phx.gbl...
Si tu déclares ta variables comme ceci :
Dim sh As Worksheet
Utilises : For each Sh in Worksheets
(ne s'occupe pas des feuilles graphique)
Si tu tiens à utiliser :
For each Sh in sheets
Déclare ta variable comme ceci :
Dim Sh as Object
"Jol" <nospam@club.fr> a écrit dans le message de news:
%23TJ0aGWKJHA.2444@TK2MSFTNGP06.phx.gbl...
Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets
Erreur d'exécution '13'
incompatilité de type
Merci encore
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:e7JxRATKJHA.4280@TK2MSFTNGP04.phx.gbl...
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
OKNSX1SKJHA.4940@TK2MSFTNGP05.phx.gbl...
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:OSJWLERKJHA.3976@TK2MSFTNGP03.phx.gbl...
Bonjour.
Essaie (fais une sauvegarde avant) :
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
--
Cordialement.
Daniel
"Jol" <nospam@club.fr> a écrit dans le message de news:
eQKLB6QKJHA.4772@TK2MSFTNGP03.phx.gbl...
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN
leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.
Utilises : For each Sh in Worksheets (ne s'occupe pas des feuilles graphique)
Si tu tiens à utiliser :
For each Sh in sheets Déclare ta variable comme ceci : Dim Sh as Object
"Jol" a écrit dans le message de news: % Daniel,
Toujours le même point d'arrêt au même endroit For Each sh In Sheets Erreur d'exécution '13' incompatilité de type Merci encore
"Daniel.C" a écrit dans le message de news:
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If LCase(Left(sh.Name, 8)) = "dialogue" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Daniel "Jol" a écrit dans le message de news:
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each.... Mais j'ai peut être mal exprimé le besoin Les feuilles cachées sont créées automatiquement et ont pour nom Dialogue1..dialogue2..dialogue 43 etc "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie (fais une sauvegarde avant) :
Sub test1() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If Left(sh.Name, 9) = "dialogueN" Then sh.Visible = True sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
-- Cordialement. Daniel "Jol" a écrit dans le message de news:
Bonjour,
Mon application crée des feuilles cachées qui se nomment dialogueN leur N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les supprimer.