3 macros : Enregitrer - Modifier - Enregistrer les modif

Sub macro1()
Dim fin As Long
ActiveSheet.Unprotect
fin = [B65536].End(xlUp).Row
[datas].Copy Cells(fin, 2).Offset(1)
[datas].ClearContents
ActiveSheet.Protect
End Sub
Sub macro2()
Dim ligne As Long
ActiveSheet.Unprotect
ligne = InputBox("Numéro de ligne à modifier?")
Cells(9 + ligne, 2).Resize(, 7).Locked = False
ActiveSheet.Protect
End Sub
Sub macro3()
Dim fin As Long
ActiveSheet.Unprotect
fin = [B65536].End(xlUp).Row
Cells(fin, 2).Resize(, 7).Locked = True
ActiveSheet.Protect
End Sub

Sub macro1()
Dim fin As Long
ActiveSheet.Unprotect
fin = [B65536].End(xlUp).Row
[datas].Copy Cells(fin, 2).Offset(1)
[datas].ClearContents
Range("B" & Maligne & ":H" & Maligne).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
[B3].Select
End Sub

Sub macro2()
Dim ligne As Long
ActiveSheet.Unprotect
ligne = Application.InputBox(Prompt:="Saisissez le numéro de la ligne à modifier !", Type:=1)
Cells(9 + ligne, 2).Resize(, 7).Select
End Sub

Sub macro3()
ActiveSheet.Unprotect
Dim fin, ligne As Long
fin = [B65536].End(xlUp).Row
Cells(fin, 2).Resize(, 7).Locked = True
Cells(9 + ligne, 2).Resize(, 7).Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
[B3].Select
End Sub