Remplacer la "sortie de macro" par "aller à la ligne suivante"

Bonjour le forum,

petite question, dans ce genre de boucle, comment remplacer le "Exit Sub" si X<>"" par "passer à la ligne suivante"?

Merci

Dim Sh As Worksheet, C As Range, x As Range, L As Long

  deb = Timer
  With ActiveSheet

' Colonne AF
    For Each x In Range("V3", Cells(Rows.Count, "V").End(xlUp)).Offset(, 10)
      'If X <> "" Then Exit Sub
      For Each Sh In Sheets
        If Left(Sh.Name, 1) <> "L" And Sh.Name <> ActiveSheet.Name Then
         With Sh
           L = .Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row
           For Each C In .Range("X3:X" & L)
             If C = x.Offset(, -10) Then
               x = C.Offset(, 8)
             End If
           Next C
        End With
       End If
     Next Sh
    Next x

Bonjour Heavy B.

If x<>"" Then Next x
end if

Ça parrais logique écrit comme cela, j'avais essayé mais sans le endif en dessous, ça fonctionne moins bien...

Bonjour Xmenpl,

je viens d'essayer, j'ai donc modifié comme ceci :

 For Each x In Range("V3", Cells(Rows.Count, "V").End(xlUp)).Offset(, 10)
      If x <> "" Then Next x
End If
      For Each Sh In Sheets
        If Left(Sh.Name, 1) <> "L" And Sh.Name <> ActiveSheet.Name Then
         With Sh
           L = .Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row
           For Each C In .Range("X3:X" & L)
             If C = x.Offset(, -10) Then
               x = C.Offset(, 8)
             End If
           Next C
        End With
       End If
     Next Sh
    Next x

Mais j'ai une erreur "Next without For"

Nonjhour à tous,

Essayez :

For Each x In Range("V3", Cells(Rows.Count, "V").End(xlUp)).Offset(, 10)
   If x <> "" Then
      For Each Sh In Sheets
         If Left(Sh.Name, 1) <> "L" And Sh.Name <> ActiveSheet.Name Then
            With Sh
               L = .Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row
               For Each C In .Range("X3:X" & L)
                  If C = x.Offset(, -10) Then x = C.Offset(, 8)
               Next C
            End With
         End If
      Next Sh
   End If
Next x

Merci Mafraise et Xmenpl pour la soluce