Bonjour,
Dans le UserForm1, dans la Private Sub UserForm_Initialize()
il y a NbLignes = Ws.Range("D5000").End(xlUp).Row
As-tu besoin autant de ligne, mets 500 pour tester c'est beaucoup plus rapide
Sinon à l’initialisation il faut rechercher le première cellule vide de la colonne D
Ton fichier pèse 3.7 mo, enlèves l'image de fond des userforms il pèse alors 375 ko
Bon courage