Bonsoir
LBound(Entete) = 0 donc LBound(Entete) + 1 = 1
UBound(Entete) = 6 donc UBound(Entete) + 1 = 7
donc de 1 a 7 soit 7 cellules
et ont range de A3 a G3 donc 7 cellules
Range("A3:G3").Resize(LBound(Entete) + 1, UBound(Entete)+1) = Entete
vous :
Range("A3") = 1 cellules = faux // donc ici il falait reserver 7 cellules soit de A3 à G3
Resize(1, 7) / 1 = vrai et aussi 7 = vrai
Solution: Range("A3:G3").Resize(1, 7) = entete // (Corrigé par Range("A3:G3")
cdt