Bonjour à vous tous,

je suis debutant en vba et je dois refaire un fichier et donc changer le code dedans. voici le code si dessous qui me pose probleme :
je dois inserer deux plages de cellules de la feuille formulaire ( cellules de C4 à C10 et celles de f4 à F10). le probleme c'est que j'ai mis une union (au niveau du "T") pour prendre en compte les deux colonnes mais lorsque je fais ma macro seules les cellules "c4:c10" s'inserent dans la feuille "base de données" et les autres j'ai "#N/A" à la place de mes valeurs et je ne comprend pas pourquoi ?
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
 
Sub insertion()
With Sheets("Formulaire")
 Nformat = .Range("c4").NumberFormat
 
 
    T = Application.Union(Range("c4:c10"), Range("f4:f10")).Value
 
 
     With Sheets("Base de données")
        If IsEmpty(.Range("a1")) Then dl = 1 Else: dl = .Range("A65000").End(xlUp).Row + 1
         .Range(.Cells(dl, 1), .Cells(dl, 14)).NumberFormat = Nformat
        .Range(.Cells(dl, 1), .Cells(dl, 14)) = Application.transpose(T)
       End With
    .Range("c4:c10").ClearContents
    .Range("f4:f10").ClearContents
End With
 
 
MsgBox ("test")
 
 
End Sub

Merci pour l'aide que vous m'apporterez,
Cordialement
Luc