VBA et combinaisons

p = InputBox("Combien y a-t-il de paramètres variants?", "paramètres variants")

xp = 2 ^ p
    intro1 = MsgBox("Il y aura " & xp & " expériences à effectuer", vbOKOnly + vbInformation, "exprériences")
    
'intro des paramètres
For l = 1 To p
Xp1 = InputBox("Quel le paramètre " & l & " ?")
Cells(l, 5) = "X" & l & ": " & Xp1
Cells(l, 5).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
Next

'intro des nombre de ligne
j = p + 3
Cells(j - 1, 2) = "M"


'alternance -1 et +1 suivant colonne
v = -1
j = p + 3

        For l = 1 To p
            Cells(p + 2, 2 + l) = "X" & l
        Next
            
'intro valeur Y
    Cells(j - 1, p + 3) = "Y"
    
'intro interactions paramètres
j = p + 3
i = 1
For g = 1 To p - 1
    For h = 2 To p
If Cells(j - 1, g + 2) <> Cells(j - 1, h + 2) Then
    Cells(j - 1, p + g + h + i) = Cells(j - 1, g + 2) & "." & Cells(j - 1, h + 2)
End If
    Next
    i = i + 1
Next

Sub Algo1()
Dim i As Integer, e As Integer, d As Integer, c As Integer
Dim NbVariable As Integer
Dim Txt As String
    Sheets("Feuil1").Select
'Nombre de variable à traiter pour le test
    NbVariable = 6
    'Mettre les 6 variables dans cellules A1,B1,etc..
    i = 1
Reco:
    For e = i To NbVariable - 1
        c = 1
        For d = e + 1 To NbVariable
            Cells(i + 1, c) = Cells(1, e) & Cells(1, d)
            c = c + 1
        Next d
        i = i + 1: GoTo Reco
    Next e
End Sub