private Sub Test()
 Dim ar() As String
 Dim j As Integer, Taille As Integer
 Dim Pos As Integer
 Const Chaine1 As String = "ceci n 'est qu'un test aa/0005/D09"
 Const Chaine2 As String = "ceci b/a12/750/ccc n'est pas un test"
 Const Chaine3 As String = "ceci n 'est pas officiel DR/23"
       ar = Split(Chaine2, " " )
     Taille = UBound(ar())
     For j = 0 To Taille
         Pos = InStr(ar(j), "/" )
         If Pos > 0 Then Debug.Print ar(j)
     Next
 end sub
   |