Tiens, à défaut de savoir extraire la dernière colonne d'une plage nommée, j'ai "bricolé" ça, qui ne pose pas de pb.
Code:
1
2
3
4
5
6 MonRange = "A2:N25" DébutPlage = Left(MonRange, InStr(MonRange, ":") - 1) FinPlage = Mid(MonRange, InStr(MonRange, ":") + 1, Len(MonRange) - InStr(MonRange, ":") + 1) DernièreLigne = Range(FinPlage).Row DernièreColonne = Range(FinPlage).Column MsgBox DernièreColonne