Si tu le souhaites mes ces deux lignes en ramarque et efface la procédure retour
mais sache qu'il n'existe ici qu"une seule feuille cachéepour tous les autres feuilles,
J'utilise le numéro de colonne de la feuille cachée pour désigner la feuille sur laquelle tu travailes
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Parent.Name = "mem" Then Exit Sub
On Error Resume Next
If Target.Column = 2 And Target = "n" Then
If Err.Number <> 0 Then Exit Sub
'Sheets("mem").Cells(Target.Offset(0, 5), Target.Parent.Index) = Target.Offset(0, 5).Value
'Application.StatusBar = mem
Target.Offset(0, 5) = 0
End If
End Sub
Sub retour()
For Each i In Selection
If i = "n" Then i.Value = "": i.Offset(0, 5) = Sheets("mem").Cells(i.Offset(0, 5).Row, i.Parent.Index)
Next
End Sub