Dim X As Integer
With ActiveWorkbook.VBProject.VBComponents(feuil2).CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
.InsertLines X + 2, "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" " 'Chr(38) permet d'insérer le symbole & dans la procédure.
.InsertLines X + 3, "End Sub"
End With