Option Explicit
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(2)
With olItem
.FirstName = Cells(i, 1)
.LastName = Cells(i, 2)
.HomeAddressCity = Cells(i, 3)
.Email1Address = Cells(i, 4)
.Categories = "Professionnel, Personnel"
.Save
End With
Next
End Sub