Dim Sh As Worksheet
Dim i As Long, derling As Long, T As Long
For Each Sh In Worksheets
If Sh.Name <> "Feuil1" Then
With Sh
If Sh.Name = "Rec" Then
For i = .Range("E65536").End(xlUp).Row To 4 Step -1
If CDate(.Cells(i, 5)) = Date Then .Range(Cells(i, "C"), .Cells(i, "M")).Copy Destination:=(.Cells(65535, 20).End(xlUp).Row + 1) ' ICI COPIER ENSUITE SUPPRIMER If CDate(.Cells(i, 5)) < Date Then .Range(Cells(i, "C"), .Cells(i, "M")).Delete (xlUp)
Next
Else:
For i = .Range("E65536").End(xlUp).Row To 4 Step -1
If CDate(.Cells(i, 5)) <= Date Then T = T + 1
Next
If MsgBox("Il y a " & T & " ligne(s) à supprimer" & vbCrLf & "Confirmer la suppresion ?", vbYesNo, "Suppression des lignes") = vbYes Then
Application.ScreenUpdating = False
For i = .Range("E65536").End(xlUp).Row To 4 Step -1
If CDate(.Cells(i, 5)) <= Date Then .Range(.Cells(i, "A"), .Cells(i, "Q")).Delete (xlUp)
Next
Application.ScreenUpdating = True
End If
End If
End With
End If
Next Sh
End Sub