Batch sur excel pour remplacer sur plusie

Toujours dans un souci de précision :
un libelle est le contenu de la case
case = cellule?
Laquelle?
Toujours la même?
N'importe laquelle?

voila le meme libe je veux le remplacer dans tous les xls existant dans le dossier

Il se trouve ou ce libellé?????
Toujours à la même place? Même cellule?
Si oui laquelle?

dans des cellule #

en plus ce batch doit les chercher et remplacer dans des cellules et place # .

je vais explique mieux
j'ai 100 fichier xls comporte plusieurs donnee .maintenant je veux remplacer un nom (paris) par (londres) dans 100 xls voila au lieu d 'ouvrir les 100 feuille et corriger par (chercher puis remplacer) je veux automatiquement les corriger en une seule fois.
merci de votre collaboration

Si si possible ;-))
Code commenté :

Sub ModifierLibelle()
'Sources pour le choix du répertoire
'et la boucle sur ses fichiers
    'http://silkyroad.developpez.com/VBA/ListView/#LII-I
    'http://www.developpez.net/forums/d270516/autres-langages/general-visual-basic-6-vbscript/vbscript/vos-contributions-vbscript/faq-utiliser-boite-dialogue-selection-repertoire/

'déclaration des variables
Dim oShell As Object, strFileName As Object
Dim oFolder As Object
Dim oFolderItem As Object
Dim OldLibelle As String, NewLibelle As String, NomClasseur As String
Dim Trouve As Range

'empêche le rafraichissement de l'écran pour gagner en rapidité
Application.ScreenUpdating = False
'remplissage des variables :
    'NomClasseur = comme son nom l'indique... le nom de ce classeur
    'OldLibelle = comme son nom l'indique, l'ancien libellé (à remplacer)
    'NewLibelle = comme son nom l'indique... le nouveau libellé
NomClasseur = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
'on a inscrit l'ancien libellé en D5
OldLibelle = Sheets(1).Range("D5").Value
'on a inscrit le nouveau libellé en D6
NewLibelle = Sheets(1).Range("D6").Value
'test si les libellés (ancien et nouveau) sont bien remplis
If OldLibelle = "" Or NewLibelle = "" Then
    'sinon, message à l'utilisateur
    MsgBox "Saisie obligatoire en D5 et D6"
    'et on ne fait plus rien, on sort de la procédure
    Exit Sub
End If

'Ici, partie technique consistant à ouvrir une fenêtre
Set oShell = CreateObject("Shell.Application")
'permettant le choix du répertoire ou se situent les fichiers excel
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, "c:\")
'en cas d'annulation par l'utilisateur
If oFolder Is Nothing Then
    'message d'abandon
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
Else
    'boucle sur tous les fichiers du répertoire
    'ne tiens pas compte de l'extension donc sur TOUS les fichiers
    For Each strFileName In oFolder.Items
        'test si :
            '1- le fichier est bien un fichier Excel
            'oFolder.GetDetailsOf(strFileName, 2) = "Feuille de calcul Microsoft Excel"
            '2- le fichier n'est pas celui qui contient la macro (le mien, ce classeur ci)
            'And strFileName <> NomClasseur
        If oFolder.GetDetailsOf(strFileName, 2) = "Feuille de calcul Microsoft Excel" And strFileName <> NomClasseur Then
            'si c'est tout bon, on ouvre le classeur
            Workbooks.Open oFolder.ParentFolder.ParseName(oFolder.Title).Path & "\" & strFileName
            'début du bloc "dans le classeur qu'on vient d'ouvrir"
            With Workbooks(strFileName & ".xls")
                'bloc dans la feuille active (en même temps, il n'y a qu'une feuille par classeur...)
                With ActiveSheet
                    'on cherche dans toutes les cellules l'ancien libellé
                    Set Trouve = .Cells.Find(OldLibelle)
                        's'il ne s'y trouve pas on fait rien
                        If Trouve Is Nothing Then
                        Else
                            's'il s'y trouve on remplace par le nouveau libellé dans la cellule
                            '(Trouve = cellule ou on l'a trouvé)
                            Trouve.Value = NewLibelle
                        End If
                    Set Trouve = Nothing
                'fin du bloc feuille
                End With
                'on enregistre les modifs
                .Save
                'on ferme
                .Close
            'fin du bloc classeur
            End With
        End If
    Next
End If
'on rétablit le rafraichissement d'écran
Application.ScreenUpdating = True
End Sub

bonjour j ai essaye mais ca marche pas
je vais mieux expliquer
voila j'ai 100 feuille execl sur un dossier
pour chaque feuille :
date heure chaine marque libelle (intersection g4)
francois
malak
cesar

tous les feuilles sont remplis par ces libelles qui sont differentes
ce que je veux c (est un batch qui permet de changer ''cesar"" par ""shakira""
dans tous ces 100 feuilles xls

merci pour votre entiere collaboratiob

Bonjour,
En fin de compte vous avez combien de cellule a modifier??????

n eme je ne sais pas??
et c'est ca le but de ce batch
remplacer ainsi garder la meme structure

Re,
J'ai mal pose la question.
Vous avez combien de cellule a modifier par feuille excel ???