Sub copie()
Dim nbval As Long
nbval = Sheets("maintenance préventive").Range("K1").Value
Sheets("feuil1").Range("A2:I200").ClearContents
For i = 5 To nbval
If Sheets("maintenance préventive").Cells(i, 7).Value < 10 Then
Sheets("feuil1").Rows(2).Insert
Sheets("feuil1").Cells(2, 1).Value = Sheets("maintenance préventive").Cells(i, 1).Value
Sheets("feuil1").Cells(2, 2).Value = Sheets("maintenance préventive").Cells(i, 2).Value
Sheets("feuil1").Cells(2, 3).Value = Sheets("maintenance préventive").Cells(i, 3).Value
Sheets("feuil1").Cells(2, 4).Value = Sheets("maintenance préventive").Cells(i, 4).Value
Sheets("feuil1").Cells(2, 5).Value = Sheets("maintenance préventive").Cells(i, 5).Value
Sheets("feuil1").Cells(2, 6).Value = Sheets("maintenance préventive").Cells(i, 6).Value
Sheets("feuil1").Cells(2, 7).Value = Sheets("maintenance préventive").Cells(i, 7).Value
Sheets("feuil1").Cells(2, 8).Value = Sheets("maintenance préventive").Cells(i, 8).Value
Sheets("feuil1").Cells(2, 9).Value = Sheets("maintenance préventive").Cells(i, 9).Value
Else
End If
Next i
End Sub