Si aucune valeur négative dans la colonne alors supprimer la colonne

Bonjour le forum,

Problème que je rencontre dans l'utilisation de VBA.

J'ai un fichier (qui est une extraction d'un ERP) Excel dans le même type que celui ci-joint. Il s'agit d'un exemple, je ne peux joindre le vrai fichier, qui comporte bien plus de données.

J'aimerai pouvoir balayer certaines colonnes (à savoir ici de C à F) et faire en sorte que si la macro NE trouve PAS de valeur(s) négative(s) dans chacune des colonnes alors elle supprime l'intégralité de la colonne.

J'ai essayé avec la méthode .Find mais n'y parvient pas..

Quelqu'un a t-il une piste ?

Je précise bien que je souhaite le développer en macro et uniquement en macro :)

Merci pour votre aide

Cordialement,

Ludo

EDIT Modo : sujet concernant Excel - fil déplacé sur le bon forum

Bonjour,

Essayez ceci

Sub Supprim_Vide()
    Dim DerCol As Long, DerLig As Long, i As Long
    Application.ScreenUpdating = False
    DerCol = Range("A1").End(xlToRight).Column
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = DerCol To 3 Step -1
        If Application.WorksheetFunction.CountIf(Range(Cells(2, i), Cells(DerLig, i)), "<" & 0) = 0 Then Columns(i).Delete
    Next i
End Sub

Cdlt