Bonsoir
Ça plante sur la première lr = ThisWorkbook.Sheets("test").Cells(Rows.Count, 1).End(x1Up).Row
parce que la variable x1Up (avec un 1 au lieu d'un L minuscule) n'est pas initialisée contrairement à la constante xlUp.
En mettant Option Explicit en début de module vous chercheriez beaucoup moins longtemps !