Option Explicit
Sub essai2()
Dim i As Integer, dl As Integer, Dp As Worksheet
Set Dp = Worksheets("depart")
With Worksheets("base")
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To dl
If IsNumeric(.Cells(i, 2)) And .Cells(i, 2) <> 0 Then
Dp.Cells(5 + i, 2) = .Cells(i, 2)
Dp.Cells(5 + i, 1) = .Cells(i, 3)
Dp.Cells(5 + i, 3) = .Cells(i, 7)
Dp.Cells(5 + i, 4) = .Cells(i, 4)
Dp.Cells(5 + i, 5) = .Cells(i, 6)
Dp.Cells(5 + i, 6) = .Cells(i, 11)
End If
Next i
End With
End Sub