Sub rcp()
Application.DisplayAlerts = False
a = Feuil3.UsedRange
n = 0
ReDim b(UBound(a))
For i = 2 To UBound(a)
If a(i, 1) = "FF" And a(i, 2) = 1 Then
For j = 1 To 14
If IsEmpty(b(n)) Then
b(n) = a(i, j)
Else
b(n) = b(n) & Chr(32) & Trim(a(i, j))
End If
Next
n = n + 1
End If
Next
With Feuil2
.Cells(3, 3).Resize(UBound(b)) = Application.Transpose(b)
Range(.Cells(3, 3), .Cells(Rows.Count, 3).End(xlUp)).TextToColumns DataType:=xlDelimited, Space:=True
Range(.Cells(2, 3), .Cells(Rows.Count, 16)).Sort Key1:=.Cells(3, 9), Order1:=xlAscending, Header:=xlYes
End With
Application.DisplayAlerts = True
End Sub