Sub Bouton6_Cliquer()
For Each wSht In Worksheets
If wSht.Name <> "BOUTON" Then
wSht.Select
Chaine = Array("Catégorie client", "Type GT", "Centre", "Commune", "Nom de rue", "Base opérationnelle", "Référence Tâche", "Famille de diffus", "Libellé sous type Affaire", "Code nature d'intervention", _
"Code objet", "C5 / P4", "Type de compteur sur place après intervention", "PDS Coupé", "PDS Limité", "Date création tâche", "Statut Tâche", "Nature de la Tâche", "Famille Tâche", _
"Type Objet Maitre", "Type d'agence", "Libellé GT Père", "Libellé GT", "Libellé Liste de Gestion", "Libellé Poste de Travail", "Communicant", "PDS hors-service", "Date fin tâche", _
"Date d'effet souhaitée Fournisseur", "Date Echéance", "Date modification tâche", "Nb jours traitement", "Tâche en retard", "Nb jours de retard", "Priorité Tâche", "Nb transferts tâche", _
"Domaine Tâche", "Référence Type Rôle Métier", "Libellé Type Rôle Métier", "Nom Acteur", "Prénom Acteur", "Référence Affaire", "Référence Externe", "Date création affaire", "Date fin affaire", _
"Type Affaire", "Libellé Statut Affaire", "Rôle Tâche", "Référence externe dern tent ", "Date eff souhait dern tent ", "Statut dernière tentative", "Date émission dern tentative", _
"Mode de réal dern tent ", "Date réalisation dern tent ", "Résultat techn der tent ", "Date réception dern tent ", "Date retour dern tent ", "Date réal prév dern tent ", "Niveau SLA dern tent", _
"Code rejet échec", "Tache à traiter", "Tâche urgente", "Tâche à faire", "Tâche créée aujourd'hui", "Tâche à traiter aujourd'hui", "Tâche cloturée aujourd'hui", "Tâche est en retard", _
"Tâche domaine prestations", "Tâche domaine interventions", "Aff est relance en cours", "Aff avec anomalie auto", "Aff a echoué rejeu TO", "Aff a echoué rejeu TO relance auto", _
"Durée relance echec rejeu TO dépassé", "ETO pas relancé auto ou durée dépassée", "Prise en charge > 1 jour", "Tâche traitement ETO", "Accès compteur", "Tâche bloquante", _
"Nombre d'anomalies", "Commentaires anomalies non variabilisés", , "Domaine de prestation")
' Supprimer toutes les colonnes de l'export dont nous n'avons pas besoin
Set MR = Range("A1:EE1")
For Each cell In MR
Présent = 0
For N = 0 To UBound(Chaine)
If cell.Value = Chaine(N) Then
Présent = 1
Exit For
End If
Next N
If Présent = 1 Then cell.EntireColumn.Delete
Next cell
' insérer une colonne pour la mise en forme '
... puis la suite comme avant