Modification macro

Sub ModifMargeBis()
Dim i As Long, myvalue
Dim Message$, Title$, Default


'************** Input Box ***************
' Définit le message.
Message = "Entrer la Valeur de la marge"
Title = "Saisie de la marge" ' Définit le titre.
Default = Range("E28") ' 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) = Round(myvalue, 2)
End If
i = i + 1
Wend
End Sub

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