Bonjour,
Dans une feuille Excel, j'insère, via le code VB6 ci-dessous, une nouvelle ligne sous une ligne de titres qui contient des filtres automatiques. lorsqu'un filtre(s) est actif(s) ma macro ne fonctionne plus (prévisible !!) .
Comment dans mon code, à insérer au début, forcer une dévalidation de l'ensemble de ces filtres.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub ajouter() '
 
    Rows("2").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
     Range("b2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("c2").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D2").Select
       ActiveCell.FormulaR1C1 = ""
    Range("E2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("F2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("G2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("H2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("I2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("J2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("K2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("b2").Select
Par ailleurs, comme vous pouvez voir dans ce code, je vide les cellules de B2 à K2. j'ai essayé Range "B2:K2" mais cela ne fonctionne pas !
si vous avez un code plus propre pour le même résultat je suis preneur

Merci pour vos avis éclairés