Bonjour,
voici un exemple,
Sub test()
For Each f In Worksheets
sh = sh & f.Name & Chr(10)
Next
x = Application.InputBox(sh & Chr(10) & "Incrire un chiffre entre 1 et " & Worksheets.Count, Type:=1)
If x = FAUX Then Exit Sub
Set Rng = Application.InputBox("Sélectionner les cellules à copier sur l'onglet " & Worksheets(x).Name, Type:=8)
If Rng = Noting Then MsgBox "La sélection doit comprendre au moins une cellule": Exit Sub
Sheets(Worksheets(x).Name).Range(Rng.Address).Value = ActiveSheet.Range(Rng.Address).Value
End Sub