J'ai pas regardé mes MPs AVN mais oui c'était moi.

te suffit de changer de port skype et d'utiliser ce script

Set objShell =WScript.CreateObject("WScript.Shell")
ss= objShell.RegRead("HKEY_CURRENT_USER\Software\Skype\Phone\SkypePath")
ss=""""+ ss +""""'Add Block rule
objShell.run "netsh advfirewall firewall add rule name=""SkypeBlockTCP"" dir=out action=block program=" + ss + " enable=yes protocol=any profile=any"
'AddAllow rule
objShell.run "netsh advfirewall firewall add rule name=""SkypeAllowToProxy"" dir=out action=allow program="+ ss +" enable=yes remoteip=TON IP"'Turn On firewall
objShell.run "Netsh advfirewall set allprofiles state on"
msgbox ""