Sub ChangeList()
Range("G20").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"•,Animation,Imprimé,Internet,M.direct,Média,Partenariale,Publicitaire,Réseaux sociaux,Essai1,Essai2,Essai3"
.IgnoreBlank = True
.InCellDropdown = True
End With
Range("A1").Select
End Sub