Sub test()
Dim Tablo() As Variant, I As Integer, J As Integer
Tablo() = Range("A1:B" & Range("B1").End(xlDown).Row)
Application.ScreenUpdating = False
ReDim Résultats(UBound(Tablo, 1), 1)
For I = 1 To UBound(Tablo, 1)
For J = I + 1 To UBound(Tablo, 1)
If Tablo(I, 2) = Tablo(J, 2) And Tablo(I, 1) = "vpm" Then
'Cells(I, 2).Font.ColorIndex = 28
Résultats(I, 0) = "|"
Résultats(I, 1) = "In DocQuest"
GoTo FIN2
End If
Next J
FIN2:
Next I
fin:
Range("C1:" & Range("B1").End(xlDown).Row) = Résultats
Application.ScreenUpdating = True
End Sub