Sub base_vide() 'clear des feuilles Enr Stat - Archive - liste Personnel
M = MsgBox("Vous allez supprimer toutes les données, voulez-vous vraiment continuer?", vbYesNo, "ATTENTION !!")
If M = 6 Then
With Sheets("enr stat").ListObjects("TabEnrStat")
.Range.AutoFilter
.DataBodyRange.Offset(1).Resize(.DataBodyRange.Rows.Count - 1, .DataBodyRange.Columns.Count).Rows.Delete
.DataBodyRange.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
End With
With Sheets("Archive").ListObjects("TabArchive")
.Range.AutoFilter
.DataBodyRange.Offset(1).Resize(.DataBodyRange.Rows.Count - 1, .DataBodyRange.Columns.Count).Rows.Delete
.DataBodyRange.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
End With
With Sheets("liste personnel").ListObjects("TabListePersonnel")
.Range.AutoFilter
'On Error Resume Next
.DataBodyRange.Offset(1).Resize(.DataBodyRange.Rows.Count - 1, .DataBodyRange.Columns.Count).Rows.Delete
.DataBodyRange.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
End With
End If
Sheets("accueil").Select
End Sub