trouver valeurs selon plusieurs criteres

Sub TransfertDeDonnées()
Dim j As Long, k As Long, Villes As String, Cel As Range
Application.ScreenUpdating = False
For j = 3 To Range("A65536").End(xlUp).Row 'Colonne A
  Villes = Cells(j, 1)
  For k = 3 To Range("H65536").End(xlUp).Row 'Colonne H
    If Cells(k, 8) = Villes Then
      Set Cel = Cells(2, 10) 'Cellule de tête soit J2
      'Faire jusqu'à ce que la cellule d'entête soit _
      égale à la cellule de la colonne B désignée
      Do Until Cel = Cells(j, 2)
      'On décale d'une cellule à droite
        Set Cel = Cel.Offset(0, 1)
      Loop
      'copie la donnée souhaitée
      Select Case Cells(k, 8).Offset(0, 1)
        Case "Achats"
          Cells(k, Cel.Column) = Cells(j, 3)
        Case "Ventes"
          Cells(k, Cel.Column) = Cells(j, 4)
        Case "Marge"
          Cells(k, Cel.Column) = Cells(j, 5)
      End Select
    End If
  Next k
Next j
Application.ScreenUpdating = True
End Sub

Sub TransfertDeDonnées1()
Dim j As Long, k As Long, col As Long
Dim Ville As String, Cel As Range, C As Range
Application.ScreenUpdating = False
For j = 3 To Range("A65536").End(xlUp).Row 'Colonne A
  Ville = Cells(j, 1)
  For k = 3 To Range("H65536").End(xlUp).Row 'Colonne H
    If Cells(k, 8) = Ville Then
      Set Cel = Cells(2, 10) 'Cellule de tête soit J2
      'Faire jusqu'à ce que la cellule d'entête soit _
      égale à la cellule de la colonne B désignée
      Do Until Cel = Cells(j, 2)
      'On décale d'une cellule à droite
        Set Cel = Cel.Offset(0, 1)
      Loop
      'copie la donnée souhaitée
      Set C = Range("C2:E2").Find(Cells(k, 9), LookIn:=xlValues, LookAt:=xlWhole)
        If Not C Is Nothing Then
          col = C.Column
          Cells(k, Cel.Column) = Cells(j, col)
        End If
    End If
  Next k
Next j
Application.ScreenUpdating = True
End Sub

=SI(1+COLONNE()-COLONNE($J$2)>SOMME(1/NB.SI(LesMois;LesMois));"";INDEX($B$1:$B$10000;PETITE.VALEUR(SI(FREQUENCE(EQUIV(LesMois;LesMois;0);EQUIV(LesMois;LesMois;0))=0;"";LIGNE(LesMois));1+COLONNE()-COLONNE($J$2))))

=SI(1+LIGNE()-LIGNE($H$3)>SOMME(1/NB.SI(Rubriques;Rubriques))*SOMME(1/NB.SI(Villes;Villes));"";INDEX($A$1:$A$1000;PETITE.VALEUR(SI(FREQUENCE(EQUIV(Villes;Villes;0);EQUIV(Villes;Villes;0))=0;"";LIGNE(Villes));1+MOD(LIGNE()-LIGNE($H$3);ENT(SOMME(1/NB.SI(Villes;Villes)))))))

=SI(H3="";"";INDEX(Rubriques;1+MOD(ENT((LIGNE()-LIGNE($H$3))/SOMME(1/NB.SI(Villes;Villes)));ENT(SOMME(1/NB.SI(Rubriques;Rubriques))))))

=SI(OU($H3="";J$2="");"";SOMMEPROD(($A$3:$A$10000=$H3)*($B$3:$B$10000=J$2)*DECALER($B$3:$B$10000;0;EQUIV($I3;Rubriques;0))))