Private Sub BoutZéro_Click()
'On copie les données avant de les effacer
Dim MaPlage
Application.ScreenUpdating = False
If Sheets("BDD").FilterMode Then Sheets("BDD").ShowAllData 'BDD feuille qui doit être copiée
Set MaPlage = Sheets("BDD").UsedRange.Offset(1).Resize(Sheets("BDD").UsedRange.Rows.Count - 1, Sheets("BDD").UsedRange.Columns.Count)
With MaPlage
On Error Resume Next
.Offset(1).Resize(plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Sheets("Temps").Range("A" & Sheets("Temps").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1)
'Là je ne sais pas quoi mettre pour qu'il embraye sur la suite
If MsgBox("Etes-vous certain de vouloir effacer les pointages horaires ? Cette action est irréversible - N'oubliez pas de copier les données avant l'effacement.", vbYesNo + vbQuestion, "Effacement des données") = vbYes Then
Sheets("BDD").Select
Dim DerLigne As Long
DerLigne = Sheets("BDD").Range("A1048576").End(xlUp).Row
If DerLigne >= 6 Then
Sheets("BDD").Range("G6:L" & DerLigne).Select
Selection.ClearContents
End Sub