Sub Transfert(Source As Range, col_dest%)
Dim h As Hyperlink
Application.ScreenUpdating = False
With Source
.Copy
.Columns(col_dest).PasteSpecial xlPasteFormats 'stockage des formats
For Each h In .Hyperlinks
h.Parent(1, col_dest) = h.Address
h.Delete
Next
.Columns(col_dest).Copy
.PasteSpecial xlPasteFormats 'restitution des formats
.Cells(1).Select
On Error Resume Next 'si aucune cellule vide
.Columns(col_dest + 1).Cells.SpecialCells(xlCellTypeBlanks) = "=""""" 'colonne AL
End With
Application.CutCopyMode = False
End Sub