'Boutton Effacer : Effacer toutes les feuilles qui commence par "client-touche"
Private Sub CommandButton1_Click()
Dim WK_workbook As Workbooks
Dim Mycount, i
[COLOR="Red"] Mycount = Workbooks("Client").Worksheets.Count[/COLOR]
'Boucle pour parcourir les feuilles du fichier Client.xls
For i = Mycount To 1 Step -1
'Verification du nom de la feuille
If Left(Workbooks("Client").Worksheets(i).Name, 13) = "client_touche" Then
'supprimer la feuille
Workbooks("client").Worksheets(i).Delete
End If
Next i
End Sub