Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Union([Tableau1].Columns(2), [Tableau2].Columns(2), [Tableau4].Columns(2))) Is Nothing Then Exit Sub
ActiveCell = IIf(ActiveCell = "o", "þ", "o")
ActiveCell(1, 0).Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'---crée la fausse case à cocher quand l'un des tableaux s'agrandit---
On Error Resume Next 'si aucune SpecialCell
Union([Tableau1].Columns(2), [Tableau2].Columns(2), [Tableau4].Columns(2)).SpecialCells(xlCellTypeBlanks) = "o"
End Sub