Bonjour,

J'aimerai par un double clic sur n'importe quelle cellule dans la zone contenant les chiffres de 1 à 90 de ma feuille Excel, coller la valeur dans la cellule P4
Il s'agit d'une grille de loto où je souhaiterai faire apparaître dans la cellule P4 le dernier n° double cliqué.

Dans l'opération de double clic j'ai déjà le code suivant qui me permet de mettre en couleur le chiffre double cliqué :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D3:M11")) Is Nothing Then
With Target
    If Selection.Interior.ColorIndex = 20 Then
        Selection.Interior.ColorIndex = xlNone
 
    Else
        Selection.Interior.ColorIndex = 20
End If
End With
End If
End Sub

Quelle serait la bonne syntaxe et où dans mon code actuel dois-je la placer ?

En vous remerciant pour votre aide,
Franck