Sub ModifMarge()
Dim i As Double
Dim myvalue As String
Dim Message, Title, Default As String
'*************** Modif ********************************
Dim Plage As Range, MargeDefaut As Range
Set Plage = Worksheets("Récap").Range("B:B")
Set MargeDefaut = Plage.Find(What:="Marges total", LookAt:=xlWhole)
'*******************************************************
'************** Input Box ***************
' Définit le message.
Message = "Entrer la Valeur de la marge"
Title = "Saisie de la marge" ' Définit le titre.
'************* Modif
Default = Round(MargeDefaut.Offset(0, 3), 2) ' Définition la valeur par défaut.
'**************************************************************
' Affiche le message, le titre et la valeur par défaut.
myvalue = InputBox(Message, Title, Default)
If myvalue = "" Then Exit Sub
'*********** Changement de la valeur *****************
i = 8 'On commence le traitement a partir de la ligne 8
While Cells(i, 3) <> "GRILLE RECAPITULATIVE"
If UCase(Cells(i, 2)) = UCase("Marges") Then
Cells(i, 5) = myvalue
End If
i = i + 1
Wend
End Sub