Private Sub Worksheet_Change(ByVal Target As Range)
tabSource = "'D:\Documents and Settings\abel\Mes documents\3- iProc\7- Extractions\2- Intr@cha\[Extraction USERS LOTUS.xls]Carnet d'adresses'!$A$1:$B$10"
If Target.Column = 1 Then
With Target.Offset(0, 1)
.Formula = "=VLOOKUP(" & Target.Address(0, 0) & "," & tabSource & ",2,0)"
.Value = .Value
End With
End If
End Sub