Dim ws As Worksheet
If MsgBox('Voulez-vous réellement mettre les feuilles de paye à zéro ?', vbYesNo + vbQuestion, 'OPERATION IRREVERSIBLE !!!') = vbYes Then
For Each ws In Sheets(Array('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', _
'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre'))
ws.Range('C22:C52').ClearContents
Next ws
lblDateDeSignature.Caption = ''
End If