sub a()
Dim oSkype As SKYPE4COMLib.Skype
Set oSkype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
Set oMembers = CreateObject("Skype4COM.UserCollection")
oMembers.Add (oSkype.User("user.voulu"))
Set oChat = oSkype.CreateChatMultiple(oMembers)
oChat.OpenWindow
oChat.Topic = "Test"
oChat.SendMessage "message de test"
End sub