With Worksheets('Salaire')
derlgn = .Range('B65535').End(xlUp).Row
TabTemp = .Range('B2:D' & derlgn).Value
For L = 1 To UBound(TabTemp, 1)
On Error Resume Next
Tp.Add TabTemp(L, 2), CStr(TabTemp(L, 2))
On Error GoTo 0
Next
End With
With Worksheets('Personnel')
derlgn2 = .Range('A65536').End(xlUp).Row
.Range('E1:IV' & derlgn).ClearContents
For c = 1 To Tp.Count
dercol = .Range('A1').End(xlToRight).Column + 1
.Cells(1, dercol) = Tp(c)
Next