Macros
Sub Rectangle1_Click()
ActiveSheet.Cells.Replace "www.youtube.com/watch?v=", "youtu.be/", xlPart, xlByRows, False, False, False, False
ActiveSheet.Cells.Replace "&feature=youtu.be", "", xlPart, xlByRows, False, False, False, False
ActiveSheet.Columns("D").Replace ",", ".", xlPart, xlByRows, False, False, False, False
ActiveSheet.Hyperlinks.Delete
End Sub