Bonjour Lone Wolf, et merci pour ta réponse ! :)
Je ne comprends juste pas le "Range(.Cells(Line, 1), .Cells(Line + Nb_l - 1, 1)).Select par .Range("a1").Activate", pourquoi veux-tu que je fasse ce remplacement ?
Pour ce qui est des autres changements, cela me créé des erreurs... :/