Bonjour a tous
Grâce au travail de Daniel C j'ai une petite macro qui fonctionne tres bien sauf qd une valeur du tableau2 col.9 est à 0. Ci-dessous la macro que j'utilise:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
    Dim c As Range, Tableau2 As Range
 
    With Sheets("Feuil1")
        Set Tableau2 = .Range(.[H62], .Cells(.Rows.Count, 9).End(xlUp))
        For Each c In .Range(.[A67], .Cells(.Rows.Count, 1).End(xlUp))
            If Not Application.IsNA(Application.VLookup(c.Value, Tableau2, 2, 0)) Then
 
                If c.Offset(, 1) > 0 Then
                    c.Offset(, 1) = c.Offset(, 1) - Application.VLookup(c.Value, Tableau2, 2, 0)
                End If
                If c.Offset(, 1) > 0 Then Exit Sub
            End If
 
        Next c
    End With
End Sub
Qd cette macro tombe sur une valeur 0 dans le tableau2 col.9 elle s'arrete, or je voudrais que dans ce cas elle se poursuive avec la ligne suivante du C.offset

Merci d'avance