Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
l = Target.Row
Set c = Range(Cells(l, 21), Cells(l, 256).End(xlToLeft)).Find("moyenne")
If Not c Is Nothing Then
Set plage = Range(Range("U" & l), c.Offset(0, -1).Address)
If Not Intersect(plage, Target) Is Nothing Then
Cancel = True
If Target = "?" Then
Target.EntireColumn.Delete Shift:=xlToLeft
Else
Target.EntireColumn.Insert Shift:=xlToRight
Target.Value = "?"
End If
End If
End If
End Sub