Un exemple aurait été plus parlant
Sub change()
Dim A_rempl As String, Rempl_par As String
A_rempl = "Sub "
A_rempl = A_rempl & " [COLOR="YellowGreen"]Macro1[/COLOR](" 'Pour remplacer Sub Macro1
Rempl_par = "Sub [COLOR="YellowGreen"]MaMacroPerso[/COLOR](" 'par Sub MaMacroPerso
With ThisWorkbook.VBProject.VBComponents("[COLOR="Red"]Module1[/COLOR]").CodeModule
For i = 1 To .CountOfLines
.ReplaceLine i, Replace(.Lines(i, 1), A_rempl, Rempl_par)
Next
End With
End Sub
...et tu cherches à remplacer quoi dans le code ???Edition Remplacer est satisfaisant pour la feuille mais comment faire pour le code userform