Sub titi()
Dim tab_1(5000, 1)
lettre = Array("A", "B", "C", "D")
valeur = Array(1, 2, 5, 20)
ligne = 0
For x1 = 0 To 3
For x2 = 0 To 3
For x3 = 0 To 3
For x4 = 0 To 3
For x5 = 0 To 3
For x6 = 0 To 3
tab_1(ligne, 0) = lettre(x1) & lettre(x2) & lettre(x3) & lettre(x4) & lettre(x5) & lettre(x6)
tab_1(ligne, 1) = valeur(x1) + valeur(x2) + valeur(x3) + valeur(x4) + valeur(x5) + valeur(x6)
ligne = ligne + 1
Next x6
Next x5
Next x4
Next x3
Next x2
Next x1
'on cherche la valeur la plus proche
cherc = 72
meilleur = tab_1(0, 1)
For i = LBound(tab_1) To UBound(tab_1)
If Abs(tab_1(i, 1) - cherc) < Abs(meilleur - cherc) Then
Cells(1, 1) = tab_1(i, 0)
Cells(1, 2) = tab_1(i, 1)
meilleur = tab_1(i, 1)
End If
Next i
End Sub