Ti

non, pour définir la plage de mon exemple , tu pourrais remplacer

Set Plage = .Range("A6", .Range("A6").End(xlToRight))

par

Set Plage = Range(.Cells(6, 1), .Cells(6, 1).End(xlToRight))

Ainsi plus de lettres.