Option Explicit
Sub toto()
Dim titi$
titi = InputBox("text", "test")
ActiveCell.Value = titi
Feuil2.Range(ActiveCell.Address).Value = titi
End Sub
Sub tata()
Dim titi$
titi = InputBox("text", "test")
ActiveCell.Value = titi
Worksheets("PAGE 02").Range(ActiveCell.Address).Value = titi
End Sub
Sub tutu()
Dim titi$
titi = InputBox("text", "test")
With ActiveCell
.Value = titi
Worksheets("PAGE 02").Range(.Address).Value = titi
End With
End Sub