="il faut choisir :"&CAR(10)&I3
Option Explicit
Private Base As String
Sub CopieBase()
Base = ActiveCell.Value
End Sub
Sub CollageÀLaSuite()
ActiveCell.Value = ActiveCell.Value & vbLf & Base
End Sub
Sub CollageÀLaSuite()
ActiveCell.Value = ActiveCell.Value & vbLf & ActiveSheet.[I3].Value
End Sub
Sub RemplaceSuite()
ActiveCell.Value = Split(ActiveCell.Value, vbLf)(0) & vbLf & ActiveSheet.[I3].Value
End Sub