ceci pour supprimer les feuilles selectionnées
For feuil = 1 To Sheets.Count
If Sheets(feuil).Activate = True Then
active = active & Chr$(34) & Sheets(feuil).Name & Chr$(34) & ','
End If
Next
active = (Left(active, Len(active) - 2))
active = Right(active, Len(active) - 1)
ActiveWindow.SelectedSheets.Delete
Cordialement
G.David
bon j'me casse ya Stargate