Bonjour,
Remplace la ligne de recherche des indicies par celle-ci
If VBA.Left(Range("A" & i + 1), 1) = Niveau And Mid(Range("A" & i + 1), 4, 1) * 1 = Secteur Then
Bonjour,
Remplace la ligne de recherche des indicies par celle-ci
If VBA.Left(Range("A" & i + 1), 1) = Niveau And Mid(Range("A" & i + 1), 4, 1) * 1 = Secteur Then