Bonjour le forum!!
petit problème sur code VBA, qui fonctionnait bien jusqu'à ce que je déplace les onglet dans un nouveau classeur pour faire des essaie et puis je les ai remis dans leurs classeur d'origine.
J'espère ne pas être trop brouillon dans mon explication, je joint le fichier concerné.
le code:
Sub EnregDevis()
Range("ligne").Copy
With Sheets("BibPerso")
.Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Range("A15") = Range("A15") + 1 'incrémente le N° d'ordre
Range("b15") = Range("b15") + 1 'incrémente le N° ouvrage
Range("b19:d19").ClearContents
Range("B22:F49").ClearContents
Range("H22:H49").ClearContents
End Sub
c'est Range("ligne").copy qui cause problème enfin je crois.
merci d'avance pour l'aide