Bonjour je n'arrive pas à faire ça et je deviens dingue:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
'combien de ligne a selectionner
Dim jours As Long
Dim i As Long
Nom = InputBox("Combien de jours concernés : ", "Jours")
 
Dim DernCell As Long
'dernière ligne colonne A
DernCell = Range("A" & Rows.Count).End(xlUp).Cell
i = -jours
Range(DernCell, "f" & i).Select
 
Selection.Copy