se deplacer a la derniere colonne

Salut Vincent, Salut le forum,

Si l'on considère que toutes les lignes possèdent le même nombre de cellules et que la ligne A n'est pas vide, cette macro devrait te satisfaire :

Public Sub dep()
Range("IV1").End(xlToLeft).Select
ms = "Colonne Nº " & ActiveCell.Column
a = MsgBox(ms)
End Sub

À plus,

Robert

oui merci robert,
en fait pour le deplacement je savais que je pouvais faire
Selection.End(xlToRight).Select
par contre il me manquait le
activecell.column
merci de ton aide
@+ vincent