Private Sub Worksheet_Change(ByVal target As Range)
Dim i As Integer
Dim Plage As Range, Intersection As Range
Application.EnableEvents = False
Set Plage = Range("B9:B55")
Set Intersection = Application.Intersect(Plage, target)
If Not (Intersection Is Nothing) Then
i = 9
With Sheets(target.Worksheet.Name)
For i = 9 To 55 Step 1
If .Cells(i, 8).Value = "OK" Then
'If IsNumeric(.Cells(i, 7)) Then
'If .Cells(i, 7).Value < .Cells(4, 2).Value Then
.Range(.Cells(i, 1), .Cells(i, 7)).Copy
' sous toute réserve
Sheets("portefeuille- compte").Range("A9").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("portefeuille- compte").Rows("9:9").Insert Shift:=xlDown
'
Else
End If
Else
End If
Else
End If
Next i
.Cells(1, 1).Copy' ?
End With
End If
Application.EnableEvents = True
End Sub