Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DerLigTab1, fincoche As String
fincoche = "$A$10" 'ajouté ici à défaut de connaître votre référence réelle.
If Target.Count > 1 Then Exit Sub
'findecoche est une cellule situé en bas de mes travaux afin de fixer une limite à la coche
DerLigTab1 = Range(fincoche).Row
' Vérifie que le double clique est bien dans les colonnes souhaitées
If (Intersect(Range("I5:I" & DerLigTab1 - 1), Target) Is Nothing) _
And (Intersect(Range("V5:V" & DerLigTab1 - 1), Target) Is Nothing) Then Exit Sub
Cancel = True
' Si oui on continue
If Target.Value = "" Then
Target.Value = "X"
Else
Target.ClearContents
End If
End Sub