Bonjour
Tout d'abord, dans ton évènement :
Private Sub BTON_RECHERCHER_TR_Click()
Si tu veux vraiment la dernière ligne , fais ceci :
drligne = .Range("A:A").Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
D'autre part,
j'ai rencontré des problèmes pour le bouton "BTON_MODIFIER_TR" au niveau de l userform
Normal, il n'y a pas de code pour ce bouton
Par contre, un évènement :
Private Sub BTON_RECTIFIER_TR_Click()
Pour un bouton qui semble ne pas exister ou alors, j'ai mal vu???
Bon courage
PS Il semblerait que tu n'aies pas fait le code non plus pour valider...