Private Sub CommandButton1_Click()
Dim Code As String
Dim Onglet As Worksheet
Code = "Le_tiens"
For Each Onglet In Sheets(Array("JANV CONV", "JANV CDD ", "récap 01"))
With Onglet
.PrintOut Copies:=1, Collate:=True
.Protect Password:=Code, DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlNoSelection
End With
Next
Sheets("JANV CONV").Activate
Unload Me
End Sub