Bonjour,

j'aimerais étendre une sélection à partir d'une cellule défini par un offset et une variable.
comment faire pour définir le range
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim jour As Date
jour = CDate(InputBox("merci d'entrer la date jj/mm/aa format:", "jour J", Date))
x = Weekday(jour, vbMonday)
'suivant le jour de la semaine, ma valeur jour va se positionner dans une cellule
[cj4].Offset(0, x - 1) = jour
[cj4].Offset(0, x - 1).Select
'je souhaite que la cellule incluant ma date serve de point de départ pour un autofill à gauche et ensuite à sa droite. 
Selection.AutoFill Destination:=Range(ActiveCell, CW4), Type:=xlFillDefault
merci de vos lumières