1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| vx = 0
derniereligne = Range("B1").SpecialCells(xlCellTypeLastCell).Row
For q = derniereligne To 3 Step -1
Nomvariable5 = Range("O" & q).Value 'prend le statut
Nomvariable6 = Range("X" & q).Value 'prend le delta date
If Nomvariable5 = "Ouvert" And Nomvariable6 > 10 Then
Worksheets("Surete").Range("K" & q, "AI" & q, "F" & q, "P" & q, "A" & q).Copy
u = Range("AO1").Value 'on recupere l'année de la cellule AO1
Sheets("Recap-" & u).Select
Range("E" & vx + 34).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
vx = vx + 1
Sheets("Surete").Select
End If
Next q |
