Supprimer onglet si somme d'une des colonnes de la page >50

Bonjour à tous,

j'ai fais un code qui me permet de supprimer l'onglet actif si la somme de la colonne d est inferieur à 50.

le truc c'est qu'il ne marche pas du tout :")

Sub inf_50()
    For Each sh In Worksheets
        Select Case sh.Name
            Case "macro", "DATA", "extrait", "adresses", "msg mail"
            Case Else
                If Application.WorksheetFunction.Sum("C:C") < 50 Then
                activesheets.delete
                End If
        End Select
    Next
End Sub

quelqu'un peut-il regarder ?

Jawst

Bonjour,

Voici un code qui marche

merci ca marche super bien

tu as juste inversé le signe supérieur et inferieur mais bon c'est pas grave ca ^^

une dernière question, Est-ce que c'est possible d'enlever le message qui me demande si je suis sur de vouloir supprimer la page ?

Oui tu peux rajoute Application.DisplayAlerts = False au début de ta macro.

merci beaucoup