Bonjour les maitres du vba

Mon soucis

j'importe des données apres filtre d'une autre feuille de calcul du meme fichier pour les coller dans une une feuille 3 de mise en page; pour certains chiffres, j'ai mis un format de nombre(lignes 24-25 du code)(2 ou trois chiffres apres la virgule selon la colonne). probleme certains chiffres ne sont pas modifie selon le critere

Pouvez vous m'aider?

mon code

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
37
38
39
40
Sub Impression_liste()
Dim dl As Long, d As Long, i As Long
dl = Worksheets("BD").Range("A" & Worksheets("BD").Rows.Count).End(xlUp).Row
d = Worksheets("Feuil3").Range("A" & Worksheets("Feuil3").Rows.Count).End(xlUp).Row
' Définition de la zone d'impression avec variable dl
'Selectionne la plage filtrée et le copie vers la feuille "BD"
 
With Worksheets("BD")
    .Range("P1:Q" & dl).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("A7")
    Union(.Range("C1:C" & dl), .Range("I1:I" & dl)).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("C7")
    .Range("D1:D" & dl).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("E7")
    Union(.Range("F1:H" & dl), .Range("M1:M" & dl)).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("F7")
End With
'largeur des colonnes
With Worksheets("Feuil3")
    .Columns("A:A").ColumnWidth = 18
    .Columns("B:B").ColumnWidth = 7.29
    .Columns("C:C").ColumnWidth = 12
    .Columns("D:D").ColumnWidth = 6.86
    .Columns("E:G").ColumnWidth = 8.7
    .Columns("H:H").ColumnWidth = 3.57
    .Columns("I:I").ColumnWidth = 7.43
'format des chiffres des colonnes
    .Range("F8:G" & d).NumberFormat = "0.00"
    .Range("I8:I" & d).NumberFormat = "0.000"
'couleur de la premiere ligne
    .Range("A7:I7").Interior.Color = 52377
'couleur texte entete
        With .Range("A7:I7").Font
        .ThemeColor = xlThemeColorDark1
        .Bold = True
        .Name = "Calibri"
        End With
 
End With
 
 
 
 
End Sub