voile le code c#est le debut .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
   Dim r, c    As Integer
 
    r = Target.Row
    c = Target.Column
   Dim j As Integer
For j = 1 To 3000
    If r = j And c = 4 Then
  Dim name As String
  name = Workbooks("Copy of Contacts Collateral").Worksheets("Contacts").Cells(j, 4)
SendMail_Outlook (name)
 
 
   Else: End If
 Next j