Salut,
Effectivement tu as 2 Signol dans ton fichier joint mais aprés quelques tests je ne vois pas de doublons apparaître hormis la saisie du même auteur plusieurs fois .
Pour le 2, si ton find échoue, ta cellule active est A1 (puisque Range("A1").actiavte), tu initialises num_lig avec ativecell.row donc num_lig=1, aprés tu remplis tacombobox7 avec G1. Moi cela me parait bizarre que tu veuilles remplir ton USF avec les infos déjà existantes ..Mais pour éviter que cela t'efface si cela échoue tu peux rajouter le test suivant pour sortir de la procédure :
if num_lig=1 then exit sub
' rempli les infos de la ligne
TextBox5 = Range("A" & num_lig)
TextBox1 = Range("D" & num_lig)
A+++