'Dans la feuille ACCUEIl
Private Sub CommandButton1_Click()
'Stop
Dim Derlig As Integer, Ligne As Integer, i As Integer
Range("A1").Select
'*********************
PassWord = "***"
'puis
With Sheets("A_QUI_MON_CADEAU")
'Protection de la feuille
.EnableSelection = xlNoRestrictions
.Unprotect PassWord:="***"
.Visible = True
.Activate
'*******************
'.Range("A2") = .Sheets("LISTE_PERSONNES").Range("G" & Ligne)
'.Range("C2") = .Sheets("LISTE_PERSONNES").Range("C" & Ligne)
'Protection de la feuille
.EnableSelection = xlNoSelection
.Protect PassWord:="***", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With