Private Sub Workbook_Open()
Feuil10.Unprotect '<= 1ère ligne en erreur
Feuil10.Range("C7") = ""
Feuil10.Range("C9") = ""
Feuil10.Range("J3") = ""
Feuil10.Range("B19") = ""
Feuil10.Range("B23") = ""
Feuil10.Protect
Feuil2.Range("A2:v1000") = ""
Transfert_Récap
Sheets(Sheets.Count).Select
End Sub