Trier les adresse mails d'un fichier excel

Sub test()

Dim rng As Range
Dim cel As Range
Dim dest As Range

  Set dest = Range("W1")
  Set rng = Columns("H:N").Resize(ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count)
  For Each cel In rng.Cells
    adr = cel.Address
    If cel.Hyperlinks.Count > 0 Then
      cel.Copy Destination:=dest
      Set dest = dest.Offset(1)
    End If
  Next

End Sub