'Ceci est un commentaire
Sub Doublons_supprimer_colonnes_trier() ' Déclaration de la procédure
Dim c As Range 'Déclaration de la variable c en tant que plage, cellule
' on demande à excel de ne pas raffraichir l'affichage, de lancer les calculs manuellement, et de ne pas lancer les évènements
'tout ça pour gagner vitesse
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
'Pour chaque c prsent dans la ligne 1 formatage spécial
For Each c In Rows("1:1").SpecialCells(xlCellTypeConstants, 23)
'on sélectionne c
c.Select
'Avec la sélection des colonne en entier
With Selection.EntireColumn
'supprimer les doublons dans colonne 1, définition en tête
.RemoveDuplicates Columns:=1, Header:=xlYes
'on classe
.Sort [Selection], Header:=xlYes
'fin de la procédure
End With
Next
' on demande à excel d'aller en a1
Application.Goto Range("a1"), True
' on remet les éléments désactiver en début en fonction
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub
Donc a priori je ne vois pas de liaison
Voilà j'espère ne pas avoir glisser d'erreur dans le commentaire