VBA le retour

[Gousnef]

Salut à tout le monde et bon week end !! (un special merci a @thierry pour son aide)
New probleme:

1)je selectionne deux colonnes de ma page excel
2)j'effectue un tri des informations en faisant pour toutes cellules c de la premiere colonne, et toutes cellules d de la deuxieme colonne un scan de leur valeur:
- si c = ANA et d= O alors je colle la ligne (correspondante aux deux cellules) dans la feuille ANA sortie
- si c= ANA et d = I alors je colle la ligne dans la feuille ANA entrée

Mais mon code ne fonctionne pas !!! et je c pas pourquoi
Pourrais je avoir de l'aide.Merci !!!!

NbreCase1 = Range("A2").End(xlDown).Row (est le nombre maximal de ligne sur ma feuille)


For Each d In Range(Cells(2, 86), Cells(NbreCase1, 86))
For Each c In Range(Cells(2, 9), Cells(NbreCase1, 9))

If c.Value = "ANA" And d.Value = "O" Then

Workbooks("ICD_Avionique_COM").Worksheets("ANA sortie").Cells(l, i).Value = Cells(c.Row, i).Value

ElseIf c.Value = "ANA" And d.Value = "I" Then
For i = 1 To 150
Workbooks("ICD_Avionique_COM").Worksheets("ANA entrée").Cells(l, i).Value = Cells(c.Row, i).Value
Next i
n = n + 1
End If
Next c
Next d