Sub Effacer()
Dim TabR() As Variant
TabR = Range("A1:F60")
t0 = Timer
For i = LBound(TabR, 1) To UBound(TabR, 1)
For j = LBound(TabR, 2) To UBound(TabR, 2)
If TabR(i, j) <> "OUT" Then
TabR(i, j) = ""
End If
Next j
Next i
Range("A1").Resize(UBound(TabR, 1), UBound(TabR, 2)) = TabR
MsgBox Timer - t0
End Sub