Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
If Target.Font.Color = RGB(255, 0, 0) Then
Target.Resize(, 5).Font.Color = RGB(0, 0, 0)
Else
Target.Resize(, 5).Font.Color = RGB(255, 0, 0)
End If
With Cells(Target.Row, 5)
.Value = Cells(Target.Row, 5) + 1
.NumberFormat = """N°""General"
End With
End If
End Sub