Création CONTACTS OUTLOOK à partir d'une MACRO EXCEL

Bonjour,

J'ai beau chercher dans tous les forums pour trouver des réponses, mais même sur les sites étrangers, les macros que j'ai obtenues ne fonctionnent pas.

Ma question est simple:

J'aimerai créer un bouton affecté à une macro qui permettrait d'envoyer des coordonnées d'un tableau excel dans une nouvelle fiche contact OUTLOOK.

Avec:

A5: Nom
A6: Prénom
A7: Téléphone
A8: Ville
A9: mail


J'ai réussi à trouver cette macro:

Private Sub CommandButton1_Click()
Dim i, olApp As Object, olItem As Object
For i = 1 To 2
Set olApp = CreateObject("Outlook.Application")
Set olItem = olApp.CreateItem(1)
With olItem
.FirstName = Cells(i, 1)
.LastName = Cells(i, 2)
.HomeAddressCity = Cells(i, 3)
.Email1Address = Cells(i, 4)
.BusinessTelephoneNumber = "0" & Cells(i, 5)
.Categories = "Professionnel"
.Save
End With
Next
End Sub

Cependant, elle ne permet pas de choisir la cellule qui donnera le nom, le tél, le mail, etc...

Merci de votre aide.