Salut,
ohlala, il y en a des choses à faire, ici...
Déjà, un truc qui a "économisé" 30 sec. d'enregistrement lors d'un nouvel agent..
Sheets("Donnees").Activate
iFlag = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & iFlag).Value = ComboBox1
Range("B" & iFlag).Value = TextBox1
...
Et je pense, je suis même sûr, qu'il y moyen de boucler sur les contrôles de ta UserForm, s'ils sont bien indexés, pour écrire tout ça en quelques petites lignes.
Pas sûr que j'aurai le temps tout de suite. En soirée, sans doute.
A+