Re salut à tous....je desespere, personne n'arrive a m'aider....
Qui pourrais m'aider à déboger ma "line1", qui sert à copier une ligne sur une autre feuille....???
Sub retard()
Dim CEL1, incr1, j, i
incr = 8
j = 0
For i = 8 To 508
j = j + 1
CEL1 = Worksheets("feuil1").cell(i, 13)
If CEL1 = "RECU" Then goto line4
If CEL1 = "38016" Then goto line5
If CEL1 > 31 Then GoTo line1
If CEL1 > 62 Then GoTo line2
If CEL1 > 90 Then GoTo line3
line1:
Worksheets("feuil1").range((cell(i, 1), cell(i, 12)).Copy Destination:=Worksheets("retard").Range((cell(j,1),cell(j,12))
Next i
End sub
Merci pour votre aide.
Chris