Sub ModifMacro()
Dim PremLigne As Integer
Dim Numero As Single
With ActiveWorkbook.VBProject.VBComponents("ModifMacroMacro").CodeModule
Debut = .ProcStartLine("MaMacro", 0)
Lignes = .ProcCountLines("MaMacro", 0)
.deleteLines Debut + 3, Lignes - 4
.InsertLines Debut + 3, Feuil1.Cells(j, f).Text
End With
MaMacro
End Sub
Sub MaMacro()
If UCase(Feuil3.Cells(i, e).Value) = "OUI" Then
Feuil4.Cells(k, g) = "X4 " & Feuil4.Cells(k, g) & Chr(10) & Feuil3.Cells(i, e + 1)
End If
End Sub