Private Sub Workbook_Open()
'Feuil1 et Feuil2 sont les CodeName, Feuil2 est la feuille Source
'Feuil1 est la feuille sur laquelle seront séparées les métiers masculins féminins
Dim tablo, i As Long, t As String, s
Feuil2.[F:F].Copy Feuil2.[L:M]
tablo = [métiers] 'matrice, plus rapide
For i = 1 To UBound(tablo)
t = tablo(i, 1)
If InStr(t, " / ") Then
s = Split(t)
tablo(i, 1) = Replace(t, " / " & s(2), "")
tablo(i, 2) = Replace(t, s(0) & " / ", "")
End If
Next
Feuil2.[L2:M2].Resize(UBound(tablo)) = tablo
End Sub
[Code]
J'ai fait plusieurs tentatives mais je n'y suis pas parvenu.
Merci pour votre aide.