Je crois avoir trouvé Staple1600 :D
j'ai juste modifié la chaine de caractéres en mettant (<img class=""char-portrait-full) dans ton code qui du coup prenait trop de lignes , j'ai mis ça
Sub dd()
Dim DL&, LD&, j&, a$, b$, c$, d$, x&
Application.ScreenUpdating = False
j = 1
With Feuil2
DL =...