Sub select_if()
Dim Rw As range
Dim Ligne As Long
[COLOR="green"][COLOR="blue"]'Sheets("BDD Call").Select
'ActiveCell.SpecialCells(xlLastCell).Select
'range(Selection, Cells(1)).Selec[/COLOR][/COLOR]
For Each Rw In Selection.Rows
Ligne = Rw.Row
For j = 1 To 362
For i = 0 To 3700
If Rw.Cells(i + 2, 12).Value = j And _ [COLOR="blue"]'''''''''''numéro de la période, on va tester en premier toutes les cellules (i+1 , 12) avec j=1, puis 2 jusqu'à 362'''''''[/COLOR]
Rw.Cells(i + 2, 13).Value >= (16 / 24) And _ [COLOR="blue"]'''''il faut ensuite que l'heure de cotation soit > à 16h00 d'où le 16/24'''''''''''[/COLOR]
Rw.Cells(i + 2, 8).Value = 28 And _ [COLOR="blue"]''''''''on ne veut que des maturités égales à 28'''''''''[/COLOR]
Rw.Cells(i + 2, 14).Value <= 0.04 Then [COLOR="blue"]''''''''''le plus à la monnaie possible''''''''''''[/COLOR]
Rw.Copy Destination:=Worksheets("Feuil1").Cells(Ligne, 1).EntireRow
[COLOR="blue"]''''''''après cette ligne, je voudrai qu'il me copie la ligne i+2 sur la "Feuil1" si cette dernière répond aux critère précédents''''''''''''' [/COLOR]
End If
Next i
Next j
Next Rw
[COLOR="blue"]''''''''je voudrai à la fin me retrouver avec uniquement les lignes correspondant au résultat de la recherche, les unes à la suite des autres en Feuil1''''''''''''[/COLOR]
End Sub