Sub Essai()
Dim Météor(20), IndiceMeteor As Integer
Tableau_arcanes = Array(POSTE1, poste2, poste3, poste4, poste5, poste6, poste7, poste8, poste9, poste10, poste11, poste12, poste13, _
poste14, poste15, poste16, poste17, archint, LeDon, Linclinaison, RecMonde, MaJustePlace, Accompoeuvre, Lancrage, ArcaneCle, _
Tyrolincarn, Envol)
' Structure Tableau_Compare : deux nombres à comparer puis valeur à attribuer.
' Le premier 0 ne sert à rien, il permet que le premier indice utile soit 1
Tableau_Compare = Array(0, 4, 13, "Empereur + Sans Nom", 8, 10, "toto + tata", 12, 7, "titi+toto")
IndiceMeteor = 1 ' Indice de l'array de sortie
For i = LBound(Tableau_arcanes) To UBound(Tableau_arcanes)
For j = LBound(Tableau_arcanes) To UBound(Tableau_arcanes)
For k = 1 To UBound(Tableau_Compare) Step 3
If Tableau_arcanes(i) = Tableau_Compare(k) And Tableau_arcanes(j) = Tableau_Compare(k + 1) Or _
Tableau_arcanes(j) = Tableau_Compare(k) And Tableau_arcanes(i) = Tableau_Compare(k + 1) Then
Météor(IndiceMeteor) = Tableau_Compare(k + 2)
End If
IndiceMeteor=IndiceMeteor+1
Next k
Next j
Next i
' Le résultat se trouve dans l'array Météor
End Sub