Quand je clique sur un bouton placé sur ma feuille excel, j'execute ce programme :
Sub prog_calcul1()
Dim m As Integer
Dim p_bti As Integer
Dim p_rma As Integer
Dim p_btd As Integer
Worksheets("resume").Unprotect (C'est là où ca bloque !!!)
Worksheets("bti").Unprotect
Worksheets("rma").Unprotect
Worksheets("btd").Unprotect
Worksheets("resume").Activate
Sheets("resume").Range("B12:AK13").ClearContents
Worksheets("BTI").Activate
Sheets("BTI").Range("D9:AM10").ClearContents
Worksheets("RMA").Activate
Sheets("RMA").Range("D9:AM10").ClearContents
Worksheets("BTD").Activate
Sheets("BTD").Range("D9:AM10").ClearContents
Worksheets("resume").Activate
......reste....(corps du programme)
Worksheets("resume").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("bti").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("rma").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("btd").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
end sub