Sub Remplacer()
Dim Classeur As Workbook
Dim Module As Object
Dim Rechercher As String
Dim Remplacer As String
Dim Trouver As Integer
Dim I As Integer
Rechercher = "MonMotQueJeN'aimePlus"
Remplacer = "MonMotQueJ'aime"
For Each Classeur In Workbooks
' Déprotéger le classeur ICI
[COLOR=blue][B]UnprotectVBProject Workbooks, "MotDePasse"
[/B][/COLOR] ' Pour chaque module du classeur
For Each Module In Classeur.VBProject.VBComponents
With Module.CodeModule
If Module.Name <> "ModuleDeMiseAJour" Then
For I = 1 To .CountOfLines
Trouver = InStr(.Lines(I, 1), Rechercher)
If Trouver > 0 Then
'Si une occurrence est trouvée, fait la modif et boucle
'Sur la ligne afin de remplacer tous les mots
Do
.ReplaceLine I, Left(.Lines(I, 1), _
Trouver - 1) & Remplacer & Mid(.Lines(I, 1), _
Trouver + Len(Rechercher), Len(.Lines(I, 1)))
Trouver = InStr(Trouver + 1, .Lines(I, 1), Rechercher)
Loop While Trouver <> 0
End If
Next I
End If
End With
Next Module
' Réprotéger le classeur ICI
[COLOR=blue][B] ProtectVBProject Classeur, "MotDePasse"
[/B][/COLOR]Next Classeur
Set Classeur = Nothing
Set Module = Nothing
End Sub