Ajouter un message a ce code

je voudrai ajouter a ce code un message a la fin de son exécution qui me dit combien de classeur on été traité

Sub ouvreFichiers()
    Dim NomFichier As Variant, Filtre As String, cmpt As Long, fich() As String
    Dim wb As Workbook, nom
    Filtre = "Tous les fichiers(*.xl*),*.xl*"
    NomFichier = Application.GetOpenFilename(Filtre, 1, "Ouvrir", , True)
    If IsArray(NomFichier) Then
        Application.ScreenUpdating = False
        For cmpt = LBound(NomFichier) To UBound(NomFichier)
            Set wb = Workbooks.Open(NomFichier(cmpt))
            With ThisWorkbook
                .Activate
                wb.Sheets(1).Copy After:=.Sheets(.Sheets.Count)
                nom = Split(NomFichier(cmpt), "\")
                .Sheets(.Sheets.Count).Name = Split(nom(UBound(nom)), ".")(0)
            End With
            wb.Close
        Next cmpt
        ThisWorkbook.Sheets(1).Activate
        Application.ScreenUpdating = True
    End If
End Sub

Bonjour

A priori UBound(NomFichier) te donne le nombre, éventuellement +1 si LBound vaut 0

merci

j'ai juste un problème avec mes images il reporte pas l'image une fois le classeur crée j'ai ce message d'erreur

RE

Ton code ne fait pas référence à des images mais si les onglets copiés en contiennent, il y a peut-être saturation mémoire