Re : Erreur Automation
re bonjour
à tester en remplacant:
'Déplacer En Offset par rapport au nombre de ligne de la selection du LBDevis
Range("PlageReferenceDF2").Select
Selection.Offset(RefLibelleNumeroLigne + 1, 0).Offset(0, 2).Select 'Déplacer le nombre de ligne selon RefLibelleNumeroLigne + 1 ligne
ActiveCell.Select 'Selectionner la cellule active
Selection.Value = TextBox18.Value 'mettre la valeur indiqué dans le TextBox18
Par
'Déplacer En Offset par rapport au nombre de ligne de la selection du LBDevis
Range("PlageReferenceDF2").Offset(RefLibelleNumeroLigne + 1, 0).Offset(0, 2)=textBox18.Value