supprimer lignes inutiles

salut
qu'appel tu un chemin d'accès?
tu as essayé une boucle if pour deleter les ligne avec plus de 7 spaces?

en fait c un chemin unc de type \\\\nomdemachine\\nomdepartage\\etc et je ne dois pas depacer un certain niveau de l'arborescence, c pour ca que je dois m'arreter à 7 \\

un truc du genre

Sub Incorrect()
Dim x, z As Integer
x = 1 'la premiere ligne ou commencer si tu as un titre tu mets 2 ou plus
Do While True
z = 0
Cells(x, 1).Select
If Trim(ActiveCell.Value) = '' Then Exit Do 'sort de la boucle si la ligne est vide
For j = 1 To Len(Trim(ActiveCell.Value))
If Mid$(Trim(ActiveCell.Value), j, 1) = ' ' Then z = z + 1
Next j
If z > 7 Then
Selection.EntireRow.Delete
x = x - 1
End If
x = x + 1
Loop
End Sub

tu me dis si OK

:kiss: :kiss: :kiss:
merci ça marche super, j'ai juste à modifer l'espace par un antislash car j'avais pas remarqué dans mon post qu'il apparaissait uniquement des espaces.
Merci encore