Bonjour,
La méthode find connait certaines difficultés lorsqu'on lui fait chercher un String (Label13) dans une plage contenant des valeurs numériques...
Dans le code du bouton Supprimer, remplacez :
Set CellNoArtiste = PlageNumeroArtiste.Find(Me.Label13, LookIn:=xlValues)
par :
Set CellNoArtiste = PlageNumeroArtiste.Cells.Find(Me.Label13, LookIn:=xlFormulas)