Bonsoir Babeth, pat1545,
Babeth, je vais dodo, donc pas le temps de contruire un classeur

, par contre tu dois avois quelques erreurs de syntaxe ou de logique à la lecture de ton code :
Worksheets(S3), si S3 est son nom doit s'écrire : Worksheets('S3')
C'est bien de définir tes variables, mais il faut Toutes les définir, ce n'est pas le cas de K ni de J , et ensuite il faut éventuellement (ici c'est le cas), les initialiser sinon tes Cells avec une valeur nulle ne vont pas aimer
Pour les variables, met Option Explicit en haut du code de ton module, ça force à les déclarer, c'est déjà une bonne chose !
Bonne nuit,
Brico