Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
dl = Cells(Application.Rows.Count, 14).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 14 (=N)
Set pl = Range("n17:n" & dl) 'définit la plage pl
'si le double-clic a lieu ailleurs que dans la plage pl, sort de la procédure
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True 'empêche le mode édition lié au double-clic
Sheets("Code").Range("F5").Value = Target.Value 'place en F5 de l'onglet "Code" le contenu de la cellule double-cliquée
Sheets("Code").Range("C5").Value = "1" 'place "1" en C5 de l'onglet "Code"
End Sub