Bonjour

S 'il vous plaît examiner ce code où le problème

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub al_TQREER_ALL()
Dim A As Long
Dim C As Range, D As Range, F As Range, Q
For R = 4 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(R, 5).Value <> Empty Then
If Cells(R, 5).Value = "Nouveau" Then
Set C = Range("B4:B" & R)
Set D = Range("D4:D" & R)
Set F = Range("AL4:AQ" & R)
Set Q = Range("AT4:AT" & R)
Set XXX = Union(C, D, F, Q)
Application.ScreenUpdating = False
Range("B" & XXX).Copy
With Worksheets(2)
ZZ = .Cells(1000, 2).End(xlUp).Row + 1
.Range("B" & ZZ).PasteSpecial xlPasteValues
.Application.CutCopyMode = False
.Application.ScreenUpdating = True
End With
End If
End If
Next R
End Sub
S'il vous plaît aider