Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Not Intersect(Columns("i"), Target) Is Nothing And Target.Count = 1 Then
For i = 3 To Range("b65536").End(xlUp).Row
If Range("b" & i).Offset(, 7).Value = "O" Then
With Range("b" & i).Resize(, 8)
.Copy Destination:=Sheets("Fait").Range("b65536").End(xlUp)(2)
.Delete Shift:=xlUp
End With
End If
Next
End If
End Sub