Sub ChercheINPUTbox()
Dim EFFACE As Range
Dim REMPLACE As Range
Dim PAs As Integer
Dim NBRESEMAINE As Integer
'Boite de dialogue Sélection de la plage
Set EFFACE = Application.InputBox(Prompt:="SELECTIONNER LA CELLULE A MODIFIER", Title:="REMPLACER", Type:=8)
'Type 0 Formule 1 Nbre 2 String 4 Bool 8 RéfCell
Set REMPLACE = Application.InputBox(Prompt:="SELECTIONNER LA CELLULE A COPIER", Title:="COPIE", Type:=8)
form = REMPLACE.Formula
PAs = InputBox("Pas de remplacement")
'Recherche et Remplacement du Texte des Cellules contenant le Texte à Effacer
For NBRESEMAINE = 0 To 51
EFFACE.Offset(NBRESEMAINE * PAs, 0).Formula = form
Next
End Sub