J'aurai une autre question, j'aimerais récupérer la partie droite de la chaîne (ici : mot2) pour la mettre dans une cellule, j'ai tester ca mais ca ne fonctionne pas :
VB:Copier dans le presse-papier
If InStr(Cells(indextab, 11).Value, " - ") <> 0 Then
MsgBox (" - détécté")
Tableau = Split(Cells(indextab, 11).Value, " - ")
Cells(indextab, 10).Value = Split(Cells(indextab, 11).Value, " - ")
Cells(indextab, 11).Select
For i = 0 To Tableau.GetUpperBound(0)
MsgBox(Tableau(i))
Next i
End If
indextab est une variable incrémentée par une boucle for
Mais il m'indique à chaque fois, objet requis
exusez moi si c'est indiqué 2 fois