Re
critere2 = Trim(Replace(Cells(7, Target.Column), "j", ""))
Cells(7,target.column) est la cellule de la 7eme ligne dans la colonne de la cellule ou a lieu le double click
Replace(Cells(7, Target.Column), "j", "") permet de remplacer le j par rien
et enfin le Trim supprime les espaces superflus qui pourraient exister