Public tablo$() 'mémorise la variable
Sub MemoriseCelluleActive()
Dim F As Object, i As Integer
Set F = ActiveSheet
ReDim tablo(1 To Worksheets.Count, 1 To 2)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive l'action des événements
For i = 1 To Worksheets.Count
Worksheets(i).Activate
tablo(i, 1) = Worksheets(i).CodeName
tablo(i, 2) = ActiveCell.Address
Next
F.Activate
Application.EnableEvents = True 'réactive l'action des événements
End Sub