Sub doublons()
Dim val As Variant, val2 As Variant
Dim col_C As String, col_E As String
Dim col_C_2 As String, col_E_2 As String
l = 1
Application.Goto Sheets('achats a').Range('a1')
For i = 2 To Sheets('achats a').Range('A65536').End(xlUp).Row
Application.Goto Sheets('achats a').Range('a1')
With Sheets('achats a')
col_C = Left(Cells(i, 3).Value, InStr(1, Cells(i, 3).Value, ' ') - 1)
col_E = Left(Cells(i, 5).Value, InStr(1, Cells(i, 5).Value, ' ') - 1)
val = col_C & col_E & Cells(i, 10).Value
End With
For k = 2 To Sheets('Achats a+b').Range('A65536').End(xlUp).Row
With Sheets('Achats a+b')
col_E_2 = Left(.Cells(k, 5).Value, InStr(1, .Cells(k, 5).Value, ' ') - 1)
val2 = .Cells(k, 3).Value & col_E & .Cells(k, 9).Value
End With
If val = val2 Then
Sheets('achats a').Rows(i).Select
Selection.Copy
Application.Goto Sheets('resultat').Range('A' & l)
ActiveSheet.Paste
l = l + 1
Exit For
End If
Next k
Next i
End Sub