Sub TRI_Agencies()
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Application.ScreenUpdating = False
Sheets("Agencies").Cells.ClearContents
Sheets("Agencies").Cells(1, 6).Value = "BID"
Sheets("Feuil3").Select
n = 1
Do
n = n + 1
Loop Until Cells(n, 1).Value = ""
Dim CRH As Integer
j = 1
k = 1
For i = 1 To n
CRH = InStr(1, Cells(i, 1).Value, "CRH", vbTextCompare)
If CRH <> 0 And Cells(i, 2) > 0 Then
Sheets("Feuil3").Range("A" & i & ":B" & i & ",D" & i & ",J" & i).Copy Destination:=Sheets("CRH").Range("A" & j + 1)
j = j + 1
ElseIf CRH <> 0 And Cells(i, 2) < 0 Then
Sheets("Feuil3").Range("A" & i & ":B" & i & ",D" & i & ",J" & i).Copy Destination:=Sheets("CRH").Range("I" & k + 1)
k = k + 1
End If
Next i
end if