Sub transfert()
a = Feuil2.UsedRange
b = Feuil1.Cells(7, 3).Value & Feuil1.Cells(7, 4).Value
For i = 2 To UBound(a)
If a(i, 1) & a(i, 2) = b Then: MsgBox "Combinaison déjà existante": Exit Sub
Next i
Feuil2.Cells(Rows.Count, 1).End(3).Resize(1, 5).Offset(1, 0) = Feuil1.Cells(7, 3).Resize(1, 5).Value
End Sub