Public Sub Rechercher()
ligne_debut_donnée_2 = 11 'Repére ligne de titres en "donnée 2"
ligne_debut_donnée_1 = 11 'Repére ligne de titres en "donnée 1"
der_li_D2 = Sheets("donnée 2").Cells.Find("*", , , , , xlPrevious).Row 'Trouve la derniere ligne écrite donnée 2
der_li_D1 = Sheets("donnée 1").Cells.Find("*", , , , , xlPrevious).Row 'Trouve la derniere ligne écrite donnée 1
For i = ligne_debut_donnée_2 + 1 To der_li_D2 ' prendre lignes D2 deb/fin
v = 11
For m = ligne_debut_donnée_1 + 1 To der_li_D1 ' prendre lignes D1 deb/fin
critere = 0
For j = 4 To 10
If Sheets("donnée 2").Cells(i, j) > Sheets("donnée 1").Cells(m, j) Then
critere = critere + 1
End If
Next j
If critere > 2 Then
Sheets("donnée 2").Cells(i, v) = Sheets("donnée 1").Cells(m, 1)
v = v + 1
End If
Next m
Next i
end sub