Salut ThauThème, et merci.
Cela ne marche pas, Tu as rajouté un "if" donc j'ai essayé "End if" à plusieurs endroit mais soit erreur de compilation soit rien ne se passe.
Re,
J'ai scrupuleusement recopié ton code, en enlevant "With" et les points devant Range, sans rajouter de "End if".
Et.... ca marche.... à moitié... il s’exécute bien sauf qu'il me surligne la ligne de la recherchev :
r.Cells(1, 3) = "Sous-total " & Application.VLookup(r.Cells(1, 1).Value, Range("i22:r50"), 3, False)
alors que celle ci s'est bien exécutée.