Copie d'un texte sur simple gauche

Bonjour à tous,

Je cherche un moyen de copier un texte dans une cellule quelconque sur un simple clic gauche.

Exemple, en cliquant sur la cellule "A1", le texte "Ceci est un test" sera automatiquement copié dans la cellule "A1".

Merci à l'avance pour votre aide,

Salutations,

Renaud D.

bonsoir,

une macro à mettre dans le code d'un de tes feuilles sur laquelle tu veux que ceci fonctionne.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = "ceci est un test"
End Sub

Bonsoir,

à coller dans le module de ta feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim aa As String
aa = "Ceci est un test."
If Target.Count = 1 Then Target = aa
Cancel = True
End Sub

Merci Game Over pour ta réponse.

Ton petit programme fonctionne bien mais je veux qu'un double clic gauche ne fonctionne que sur la cellule "A1" et non sur les autres. Est-ce possible ?

Salutations,

Renaud

essaye ce code alors

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim aa As String
aa = "Ceci est un test."
If Target.Count = 1 And Not Intersect(Target, Cells(1)) Is Nothing Then Target = aa
Cancel = True
End Sub

Merci encore une fois "Game Over" pour ton aide.

Salutations,

Renaud D.