Sub Test()
With Sheets("Feuil1")
For Each xCell In .Range("A2:A5") 'On parcours les cellules de la feuille1 de A2 à A5
If xCell.Value <> "" Then 'Si cellule <> vide
xDecoupe = Split(xCell.Value, "n°") 'On découpe en fonction des caractères n°
xCpt = xCpt + 1 'On incrémente un compteur
With Sheets("Feuil2") 'On travaille maintenant sur feuille2
.Range("B" & 1 + xCpt) = xDecoupe(1) 'On inscrit en colonne B
End With
End If
Next xCell 'Fin boucle
End With
End Sub