Sub Extraction()
Sheets("Tableaux").Select
Sheets("Statistiques").Range("E13:H36").ClearContents
Lig = 13
DerLig = [H36].End(xlUp).Row
For L = 2 To DerLig
If Cells(L, 3) >2 Then
Cells(L, 3).EntireRow.Copy Destination:=Sheets("Statistiques").Cells(Lig, 1)
Lig = Lig + 1
End If
Next L
Sheets("Statistiques").Select
End Sub