Public Property Get presse_papier_Mac_window()
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: presse_papier_Mac_window = .GetText(1): End With
End Function
Sub test()
Range("b1:c" & Rows.Count).Copy: x1 = Split(presse_papier_Mac_window, vbCrLf)
Range("p1:p" & Rows.Count).Copy: x2 = Split(presse_papier_Mac_window, vbCrLf)
ReDim tbl(LBound(x1) To UBound(x1), 3)
For i = LBound(tbl) To UBound(tbl) - 1
tbl(i, 0) = Split(x1(i), vbTab)(0)
tbl(i, 1) = Split(x1(i), vbTab)(1)
tbl(i, 2) = Split(x2(i), vbTab)(0)
Next
MsgBox tbl(3, 1)
End Sub