Sub Copy_L()
Dim i As Long, j As Long, derlinge As Integer, WS1 As Worksheet, WS2 As Worksheet, Tablo, x As Long
Set WS1 = Worksheets("Fichier COOIS") ' à adapter
Set WS2 = Worksheets("Feuil2") ' à adapter
x = 1
With WS1
Tablo = .Range("B2:S" & .Range("B" & Rows.Count).End(xlUp).Row)
For i = 3 To UBound(Tablo) - 1
If Tablo(i, 13) = "IMPR LANC" Or Tablo(i, 13) = "CNFP CCOA IMPR LANC" Or Tablo(i, 13) = "CNFP IMPR LANC" Then
If Tablo(i + 1, 13) = "CONF IMPR LANC" Or Tablo(i + 1, 13) = "CONF CCOA IMPR LANC" Or Tablo(i + 1, 13) = "CONF IMPR LANC RECT" Then
x = x + 1
For j = 1 To 18
Tablo(x, j) = Tablo(i, j)
Next
End If
End If
Next i
End With
WS2.Range("B1").Resize(x, 18) = Tablo
End Sub