Sub RECOCHER_organes()
Dim i&, fin&, fin1, aa As Variant, bb As Variant, a&
fin = Sheets("Gamme A4").Range("E65536").End(xlUp).Row
fin1 = Sheets("LISTE DES ORGANES").Range("C65536").End(xlUp).Row
aa = Sheets("Gamme A4").Range("E11:E" & fin)
bb = Sheets("LISTE DES ORGANES").Range("A2:C" & fin1)
For i = 1 To UBound(aa)
For a = 1 To UBound(bb)
If aa(i, 1) = bb(i, 3) Then bb(i, 1) = "X": GoTo 1
Next a
1 Next i
Sheets("LISTE DES ORGANES").Range("A2").Resize(UBound(bb)) = bb
End Sub