Dim sh1, sh2 As Worksheet
Sub Transfert_Donnees()
Dim derlig, i, j As Long
Set sh1 = Feuil4
Set sh2 = PAYE
derlig = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
j = sh1.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To j
If sh1.Cells(i, 9) > 0 Then
sh1.Range(Cells(i, 1), Cells(i, 13)).Cut sh2.Cells(derlig, 1)
derlig = derlig + 1
End If
Next
For i = j To 2 Step -1
If sh1.Cells(i, 1) = "" Then sh1.Range(Cells(i, 1), Cells(i, 13)).Delete shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub