[XL-2007] probleme avec format des nombres

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:

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