Function LineTracer(ByVal Mat As String) As Long
Dim DerCellA As Long, i As Long
Dim X As Integer
Dim C As Byte
X = 2
With Sheets('Feuil1')
DerCellA = .Range('A65536').End(xlUp).Row
For i = 2 To DerCellA
If Mat = .Cells(i, 1) Then
For C = 1 To 8
Me.Spreadsheet1.Cells(X, C) = CStr(.Cells(i, C))
Next
X = X + 1
LineTracer = i
End If
Next
End With
End Function