Option Compare Text
Sub es()
Dim t(), t1(), i As Long, c As Byte, z As String
t = Feuil1.Range("a2:l" & Feuil1.Cells.Find("*", , , , , xlPrevious).Row)
ReDim t1(1 To UBound(t), 1 To 12)
z = "livraison"
For i = 1 To UBound(t)
If t(i, 12) = z Then
x = x + 1
For c = 1 To 12: t1(x, c) = t(i, c): Next c
End If
Next i
Feuil2.[a2].Resize(x, 12) = t1
End Sub