Sub Copier_Extraction()
'
' Copier_Extraction Macro
'
Dim d As Range, wk As Workbook
Set d = [A2]
Set wk = Workbooks.Open("\\192.168.4.1\tresorerie\Antoine.TUY\PROJETS\Synthèse relevé de compte.xls")
If Not IsError(Application.Match(d, wk.Sheets(1).Columns(1), 0)) Then
wk.Sheets(1).Cells(Application.Match(d, wk.Sheets(1).Columns(1), 0), 2) = d(1, 2)
End If
End Sub