Bonjour
Essaie en modifiant cette partie de code :
.Range("B3:F" & Ln).Copy 'Copier coller de la colonne B à F
Bdd.Range("B" & Lnbdd).PasteSpecial Paste:=xlPasteValues
.Range(.Cells(3, x), .Cells(Ln, x)).Copy ' copie colle nb d'opérations
Bdd.Range("H" & Lnbdd).PasteSpecial Paste:=xlPasteValues
Si ok, clique sur le v vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil
Crdlt