J'ai trouvé à la ligne
Set cell = Range(Cells(6, 3), Cells(45, Target.Column - 1)).Find(Val(Target), lookat:=xlWhole)
il faut remplacer xlWhole par xlPart, ce qui permet de recherche une valeur approchante et non exacte.
Fausse route la macro m'efface la cellule contenant le premier chiffre exemple, si j'ai :
1A , 1B , 1C et je demande d'effacer 1B, c'est 1A qui s'efface.
Donc je cherche.