With Sheets("recep envoi")
lig = Range("A65536").End(xlUp)(2).Row
If lig < 2 Then lig = 2
For I = 0 To pieces_jointes.ListCount - 1 'compte le nb de pièces dans la listbox
Cells(lig, 6 + I).Hyperlinks.Add Cells(lig, 6 + I), pieces_jointes.List(I)
Next
End With