Générer somme aléatoire entre 2 nombres

Je dois avouer que je n'ai pas compris grand-chose à ton laïus ... 

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 
Il existe aussi :
 1) https://mon-partage.fr/ 
 2) https://www.transfernow.net/ 

Sub Generateur()
    Dim Val_Min As Integer, Val_Max As Integer
    Dim Alea_Min As Integer, Alea_Max As Integer
    Dim Lig As Long, Somme As Long, Valeur As Long
    Application.ScreenUpdating = False
    Columns(1).ClearContents
    Val_Min = Range("D1").Value 'Valeur minimale de départ
    Val_Max = Range("E1").Value 'Valeur maximale à atteindre
    Alea_Min = Range("D4").Value 'Valeur aléatoire minimale
    Alea_Max = Range("E4").Value 'Valeur aléatoire maximale
    Range("B1").Value = Val_Min
    Lig = 1
    Somme = Val_Min
    Randomize
    Do
        Lig = Lig + 1
        Valeur = Int((Alea_Max - Alea_Min + 1) * Rnd) + Alea_Min
        Somme = Somme + Valeur
        Cells(Lig, "B").Value = Somme
        Cells(Lig, "A").Value = Valeur
    Loop While Cells(Lig, "B") < Val_Max
    If Cells(Lig, "B") > Val_Max Then Cells(Lig, "B") = Val_Max
End Sub