Sheets("TriBrut").Range("A1:B" & Sheets("TriBrut").Range("A65535").End(xlUp).Row).ClearContents
Dim n As Long
Dim i As Integer
Dim derligne As Long
Dim dercol As Long
Sheets("brut").Select
n = Range("A1").CurrentRegion.Columns.Count
Range("A1", Range("A1").Offset(0, n - 1)).Select
Selection.Copy
Sheets("TriBrut").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("brut").Select
For i = 1 To Range("A65535").End(xlUp).Row
derligne = Sheets("TriBrut").Range("A65535").End(xlUp).Row + 1
dercol = Sheets("TriBrut").Range("A65535").End(xlToRight).Select
If Cells(i, 1) >= Range("Paramètres!G3").Value _
And Cells(i, 1) <= Range("Paramètres!H3").Value Then
'Copier-coller de la ligne de données sur la feuille "Import"
Range(Cells(i, 1), Cells(i, dercol)).Copy Destination:=Sheets("TriBrut").Cells(derligne, 1)
derligne = derligne + 1
End If
Next i
MsgBox ("Les données viennent d'être transférées vers la feuille IMPORT")
Sheets("Import").Select