Sub NonJaune()
Dim DL%, Tablo, T, L%, N%
Application.ScreenUpdating = False
DL = [B65500].End(xlUp).Row
[C:C].ClearContents
Tablo = Range("B1:B" & DL)
ReDim T(1 To DL): N = 1
For L = 1 To DL
If Cells(L, "B").Interior.Color = vbWhite Then
T(N) = Tablo(L, 1): N = N + 1
End If
Next L
[C1].Resize(DL, 1).Value = Application.Transpose(T)
End Sub
' Tri des présent en B et absent en A
Erase T
ReDim T(1 To DL): N = 1
For L = 1 To DL
If Application.CountIf([A:A], Tablo(L, 1)) = 0 Then
T(N) = Cells(L, "B"): N = N + 1
End If
Next L
[D1].Resize(DL, 1).Value = Application.Transpose(T)