Bonsoir,
pour te déplacer d'une cellule à l'autre, utilise la fonction offset qui te déplace horizontalement et verticalement par rapport à un point donné.
Détail de la commande : Activecell.offset(nb de lignes,nb de colonnes).select
Et dans ton cas plus précisement :
'**************
Sub Selectionne_Colonnes
Range(Activecell,Activecell.offset(0,4)).select
End sub
'**************
Et voilà ! :0)
Clément
"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème."