Private Sub CommandButton1_Click()
If MsgBox("Êtes-vous certain de vouloir effacer les données?", vbYesNo + vbQuestion, "CONFIRMATION REQUISE") = vbNo Then Exit Sub
With Sheets("calcul caisse")
' quand je double clic sur le bouton d'effacement
'ce code permet de deplacer automatique la barre vertical en haut de la feuille
'ici la ligne 5 visible du tableau avec les lignes figés
ActiveWindow.ScrollRow = 5
.Range("D3, H3, H70, G5:G18, G43:G69, F19:G20, F21:G31, F32:G42 ").ClearContents
End With
End Sub