Sub remplace()
'cette macro permet de remplacer dans toutes les feuilles numériques du classeur des cellules précises par celles de la feuille modèle
Dim Ws As Worksheet, r As Range
Set r = Application.InputBox("Sélectionner la plage, réduite si possible", , , , , , , 8)
For Each Ws In ThisWorkbook.Worksheets
If IsNumeric(Ws.Name) Then
Ws.Range(r.Address).Formula = Worksheets("modele").Range(r.Address).Formula
Ws.Range(r.Address).NumberFormat = Worksheets("modele").Range(r.Address).NumberFormat
End If
Next
MsgBox "opération effectuée"
End Sub