Re : Message box
Sinon est ce qu'on peut le faire apres ceci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E3:E65536")) Is Nothing Then
Target.Value = IIf(Target.Value = "X", "", "X")
[E2].Select
End If
End Sub
J'ai...