Bonsoir Eriiic,
1 - Je ne vois pas de .Select dans le code de mon post.
2 - Si je me moquais des conseils donnés, je ne posterai pas.
Ce site serait-il réservé à une élite ?
Si je m'acharne, c'est que le conseil qui m'a été donné précédemment :
sCol = Split(Columns(Target.Column).Adress(ColumnAbsolute:=False), ":")(1)
ne fonctionne pas (erreur 424). Il est donc normal que je continue à chercher.
En revanche, j'ai fini par trouvé ceci, qui fonctionne parfaitement (j'avoue que c'est un affreux copier/coller) :
sCol = Left(ActiveCell.Address(ColumnAbsolute:=False), (ActiveCell.Column < 27) + 2)
Mais cela n'est peut-être pas très académique. Ton avis m'intéresse.
Cool.