Bonsoir le Forum

Mon souci, dans la feuille "BD", je voudrais masquer le contenu de certaines colonnes avant impression.

En particulier: de A à B inclus, de Jà L et la colonne S
J'y arrive sur les colonne J à L avec le code suivant mais quand je demande plus, il me met un message d'erreur 6 ou 13.

votre aide serait la bienvenue.
Cordialement
Lps02

Mon code (récupéré sur la FAQ)
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
28
29
30
31
32
33
34
35
36
Option Explicit
Option Base 1
 
 
Sub Impression()
 
    MasqueContenuCell_Print Worksheets("BD"), Columns("J:L")
End Sub
 
 
Sub MasqueContenuCell_Print(Feuille As Worksheet, Plage As Range)
    Dim FormatInit() As Variant
    Dim Cell As Range
    Dim i As Integer
 
    'Redimesionne le tableau qui va stocker les formats initiaux
    ReDim Preserve FormatInit(Plage.Cells.Count)
 
    'Boucle sur la plage de cellules
    For Each Cell In Plage
        i = i + 1
        FormatInit(i) = Cell.NumberFormat
    Next Cell
 
    'Applique le format ;;; pour masquer le contenu des cellules.
    Plage.NumberFormat = ";;;"
    'Feuille.PrintPreview
    Feuille.PrintPreview
 
    i = 0
    'Boucle sur la plage de cellules pour réattibuer les formats initiaux
    For Each Cell In Plage
        i = i + 1
        Cell.NumberFormat = FormatInit(i)
    Next Cell
End Sub