Bonjour a tous,

Je voudrais copier un tableau et ensuite le coller dans un plage de cellule de même dimension commençant en A1 qui deviendras l'entête de la feuille.

Voici 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
Sub CopieTab()
	Const NOM_ENTETE_COLONNE As Variant = "No,Item,Nom,Produit,Ship date"
    	Const DELIMITATION_ENTETE = ","
 
	Dim varTablEntete As Variant 
 
	'Variable objet
    	Dim wkb As Workbook
	Dim wsh As Worksheet
 
	Set wkb = Workbooks.Add
	'Ajouter et garder une référence sur la nouvelle Feuille
	Set wsh = wkb.Worksheets.Add
 
	'Renommer la Nouvelle Feuille
	wsh_.Name = "TestCopieTab"
 
	varTablEntete = Split(NOM_ENTETE_COLONNE, DELIMITATION_ENTETE )
 
	 wsh.Range(Rows("A1")).Resize(UBound(varTablEntete, 1), UBound(varTablEntete, 2)) = varTablEntete   
 
End sub
L'erreur suivant a été générée:
Erreur d’exécution '9': L'indice n'appartient pas à la sélection.
L'erreur viendrait lors du débogage à cette commande:UBound(varTablEntete, 2).

Merci d'avance pour votre aide.

Katy07