Associer des lettres à des colonnes

Re-bonjour ! Après moult recherches, j'ai enfin pu télécharger une version complète d'Excel 2016.

Une macro que j'ai utilisé me donne toutes les possibilités pour changer l'ordre des lettre ABCDE, mais comment faire en sorte de demander à Excel de faire des calculs prévus pour ces colonnes ? Je m'explique : A1=6551, B1= 3102, C1= 5693, D1= 3484 et E1= 4605, pour la première ligne du tableur. Ainsi ma macro me donne tous les ordres possibles (120 au total), mais affiche juste dans 1 cellule chaque ordre, cellule par cellule de cette manière :

ABCED

ABDCE

etc...

donc comment faire pour que la macro remplisse d'elle même les cellules correspondant aux lettres ?

ainsi, la cellule 120 (donc la dernière combinaison) est EDCBA,, donc A120 = 4605, B120=3484, C120=5693, D120=3102 et E120= 6551, mais Excel ne le fait pas de lui-même, il m'affiche juste l'ordre des lettres !

Merci

Voici ma macro :

Sub Macro1()

'

' Macro1 Macro

'

' Touche de raccourci du clavier: Ctrl+m

For i1 = 1 To 5

For i2 = 1 To 5

If i1 <> i2 Then

For i3 = 1 To 5

If i1 <> i3 And i2 <> i3 Then

For i4 = 1 To 5

If i1 <> i4 And i2 <> i4 And i3 <> i4 Then

For i5 = 1 To 5

If i1 <> i5 And i2 <> i5 And i3 <> i5 And i4 <> i5 Then

i = i + 1

Cells(i, 1) = Chr(64 + i1) & Chr(64 + i2) & Chr(i3 + 64) & Chr(i4 + 64) & Chr(i5 + 64)

End If

Next i5

End If

Next i4

End If

Next i3

End If

Next i2

Next i1

End Sub

Bonjour,

Sub Macro1()
i = 1
For i1 = 1 To 5
For i2 = 1 To 5
If i1 <> i2 Then
For i3 = 1 To 5
If i1 <> i3 And i2 <> i3 Then
For i4 = 1 To 5
If i1 <> i4 And i2 <> i4 And i3 <> i4 Then
For i5 = 1 To 5
If i1 <> i5 And i2 <> i5 And i3 <> i5 And i4 <> i5 Then
i = i + 1
'Cells(i, 1) = Chr(64 + i1) & Chr(64 + i2) & Chr(i3 + 64) & Chr(i4 + 64) & Chr(i5 + 64)
Cells(i, 1) = "'" & Cells(1, i1) & Cells(1, i2) & Cells(1, i3) & Cells(1, i4) & Cells(1, i5)
End If
Next i5
End If
Next i4
End If
Next i3
End If
Next i2
Next i1
Range("A2:A121").TextToColumns Destination:=Range("A2"), DataType:=xlFixedWidth, _
 OtherChar:="=", FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1), Array(12, 1), Array(16, 1)), TrailingMinusNumbers:=True

End Sub