Suppression des lignes non utilisées

Bonjour,

Je suis à la recherche d'un code vba pour supprimer les lignes à 0:00 (non renseigné) du fichier joint.

Merci d'avance.

Cdlt

Galiax

Bonsoir,

Tu peux tester ça :

Sub baroute()

nbligne = Range("A" & Rows.Count).End(xlUp).Row

For i = nbligne To 2 Step -1

    If Range("J" & i) = 0 Then

        Rows(i & ":" & i).Select
        Selection.Delete Shift:=xlUp

    End If

Next i

End Sub

@+

Bonjour BAROUTE78,

Super ça fonctionne, merci de ton aide

@+