Ouverture multiples de Fichiers

[guigui76]

Bonjour,

Pour indiquer les fichiers à ouvrir pour le traitement des données.
J'ai fait ceci, cela fonctionne mais comment puis-je l'optimisé?
_ En B1:B5 c'est la liste des fichiers à ouvrir réaliser par plusieurs formule.
_En B6 la cellule de référence pour la deuxieme macro de traitement, une fois la tache faite, je coupe de B7:B15 pour coller en B6 et recommencé.


J'espére ne pas être trop compliqué dans mes explications.
Si vous avez réussir à me lire Merci.
Et bonne Journée

Public Sub Début()
  
Range("B1:B5").Copy
    Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    'Regarde si il y a bien une valeur dans la premiere cellule.
    Do While Range("b6").Value > ""
        'appel des autres macros.
            'Call total
    Range("B7:B15").Cut
    Range("B6").Select
    ActiveSheet.Paste
  Loop

End Sub