Macro + 100 itérations

Bonjour,
je suis en train d'écrire un petit code pour l'ouverture de 550 fichiers excel en même temps. le code fonctionne très bien pour une vingtaine de fichiers.
quand j'essaie à 100 itérations il me génère cette erreur run-time error 6 overflow
ci dessous le code :
Sub multiselection()

nomfich = Application.GetOpenFilename(Title:="Ouverture des fichiers CEXP", MultiSelect:=True)


If TypeName(nomfich) = "Boolean" Then

Exit Sub
End If


If UBound(nomfich) > 1 Then
Dim rep As Long
Dim Liste As String
Dim compteur As Byte
For compteur = 1 To UBound(nomfich)
Liste = Liste & vbCr & nomfich(compteur)
Next compteur

rep = MsgBox("Voici la liste des fichiers CEXP sélectionnés." _
& Liste & vbCr & "Voulez-vous les ouvrir ?", vbYesNo + vbQuestion, "Ouvrir les fichiers CEXP ?")

If rep = vbYes Then
For compteur = 1 To UBound(nomfich)
Workbooks.Open Filename:=nomfich(compteur)
Next compteur
End If
Else
Workbooks.Open Filename:=nomfich(1)
End If
End Sub



Merci de votre aide