Sub selvrai1()
Application.ScreenUpdating = False
ligne = 1
tablo = Sheets("Feuil1").Range("A1:B" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If UCase(tablo(n, 2)) = "VRAI" Then
Sheets("Feuil2").Cells(ligne, 1) = tablo(n, 1)
Sheets("Feuil2").Cells(ligne, 2) = tablo(n, 2)
ligne = ligne + 1
End If
Next n
Application.ScreenUpdating = True
End Sub