Sub RemplacerTexteDansCodeModule (ByVal chRecherche As String, ByVal chRemplace As String)
Dim i As Integer, Ligne As String
Dim x As Long
Dim LigDebut As Integer, NbrLig As Integer
Dim VBComp As Object
For Each VBComp In ActiveWorkbook.VBProject.VBComponents
With VBComp.CodeModule
x = .CountOfLines
For i = 1 To x
If InStr(1, .Lines(i, 1), chRecherche, vbTextCompare) Then
Ligne = .Lines(i, 1)
Ligne = Replace(Ligne, chRecherche, chRemplace)
.ReplaceLine i, Ligne
End If
Next i
End With
Next
End Sub