ligne par ligne Index + Equiv ss conditions

Option Explicit


Sub travdemande()
Dim cellule As Range
Dim plage As Range

Dim nomfeuille1 As String
Dim col1 As String
Dim lidep1 As Long

'**********************************
' à modifier
nomfeuille1 = ActiveSheet.Name '"Feuil1" 
col1 = "d"
lidep1 = 2
'************************************

With Sheets(nomfeuille1)

Set plage = .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)

For Each cellule In plage 'pour chaque ligne (jusqu'à la dernière)
     If cellule.Value = "FR" Then 'si une cellule de la colonne D prend pour valeur Fr
        If cellule.Offset(0, 1).Value = "P" Then 'alors Si la cellule de la colonne E (offset 1)prend la valur P

'3. alors excel recherche une info dans un tableau a l'aide d'INDEX et de EQUIV dans une feuille Tarif3            
            'Range("J9").Value = Application.Index(Worksheets("Tarif3").Range("B3:N100"), Application.Match(Worksheets("AgencesTfe").Range("B9"), Worksheets("Tarif3").Range("A3:A105"), 0), Application.Match(Worksheets("AgencesTfe").Range("D9"), Worksheets("Tarif3").Range("B1:E1"), 1))
            ' si on doit ranger dans la même ligne il faut utiliser Cellule.row
            Range("J" & cellule.Row).Value = Application.Index(Worksheets("Tarif3").Range("B3:N100"), Application.Match(Worksheets("AgencesTfe").Range("B" & cellule.Row), Worksheets("Tarif3").Range("A3:A105"), 0), Application.Match(Worksheets("AgencesTfe").Range("D" & cellule.Row), Worksheets("Tarif3").Range("B1:E1"), 1))
        End If
     End If
Next cellule

End With

End Sub