Salut Suetake77,
essaie comme ca (code non testé!)
Sub Ellipse1_Clic()
If ActiveCell.Value <> "" Then
' sauf ligne de titre et ligne vide
If ActiveCell.Row = 1 Then Exit Sub
If ActiveCell.Value = "" Then Exit Sub
'Le & permet de tab
For i = 1 To 3
copie = copie & Cells(ActiveCell.Row, i).Value & ";"
Next i
'remplace le & par ; et puis par tab
copie = Replace(copie, ";", "{TAB}")
AppActivate "Bloc-notes"
Application.SendKeys (copie)
Cells(ActiveCell.Row, 2).Select
End If
Exit Sub
fin:
MsgBox "L'application """ & ActiveCell.Value & """ n'est pas lancée !"
Cells(ActiveCell.Row, 2).Select
End Sub
@++