Option Explicit
Option Compare Text
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A243:A1967], Target) Is Nothing And Target Like "[A-Z][A-Z][A-Z]+###" Then
Cancel = True
Call prendre_ce_code
End If
End Sub