Bonjour
Comment pourrais je réduire ce code :
With Sheets("Panne retour")
For bcl = 1 To derL
If Cells(bcl, 2) = 6 Or Cells(bcl, 2) = 7 Or Cells(bcl, 2) = 8 Or Cells(bcl, 2) = 9 Or _
Cells(bcl, 2) = 10 Or Cells(bcl, 2) = 11 Or Cells(bcl, 2) = 12 Or Cells(bcl, 2) = 13 Or _
Cells(bcl, 2) = 14 Or Cells(bcl, 2) = 15 Or Cells(bcl, 2) = 16 Or Cells(bcl, 2) = 17 Or _
Cells(bcl, 2) = 18 Or Cells(bcl, 2) = 19 Or Cells(bcl, 2) = 20 Or Cells(bcl, 2) = 21 Or _
Cells(bcl, 2) = 22 Or Cells(bcl, 2) = 25 Or Cells(bcl, 2) = 26 Or Cells(bcl, 2) = 27 Or _
Cells(bcl, 2) = 28 Or Cells(bcl, 2) = 29 Or Cells(bcl, 2) = 30 Or Cells(bcl, 2) = 31 Or _
Cells(bcl, 2) = 32 Or Cells(bcl, 2) = 33 Or Cells(bcl, 2) = 34 Or Cells(bcl, 2) = 38 Or _
Cells(bcl, 2) = 39 Or Cells(bcl, 2) = 42 Or Cells(bcl, 2) = 44 Or Cells(bcl, 2) = 45 Or _
Cells(bcl, 2) = 47 Or Cells(bcl, 2) = 49 Or Cells(bcl, 2) = 50 Or Cells(bcl, 2) = 51 Or _
Cells(bcl, 2) = 52 Or Cells(bcl, 2) = 53 Or Cells(bcl, 2) = 54 Or Cells(bcl, 2) = 55 Or _
Cells(bcl, 2) = 56 Or Cells(bcl, 2) = 57 Or Cells(bcl, 2) = 60 Or Cells(bcl, 2) = 61 Or _
Cells(bcl, 2) = 63 Or Cells(bcl, 2) = 64 Or Cells(bcl, 2) = 65 Or Cells(bcl, 2) = 66 Or _
Cells(bcl, 2) = 67 Or Cells(bcl, 2) = 68 Or Cells(bcl, 2) = 69 Or Cells(bcl, 2) = 70 Or _
Cells(bcl, 2) = 71 Or Cells(bcl, 2) = 72 Or Cells(bcl, 2) = 73 Or Cells(bcl, 2) = 74 Or _
Cells(bcl, 2) = 75 Or Cells(bcl, 2) = 76 Or Cells(bcl, 2) = 77 Or Cells(bcl, 2) = 78 Or _
Cells(bcl, 2) = 79 Or Cells(bcl, 2) = 80 Or Cells(bcl, 2) = 81 Or Cells(bcl, 2) = 82 Or _
Cells(bcl, 2) = 83 Or Cells(bcl, 2) = 84 Or Cells(bcl, 2) = 85 Or Cells(bcl, 2) = 86 Then
Cells(bcl, 2).Copy
Cells(bcl, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next bcl
End With