Sub Test_ERIC57()
Application.ScreenUpdating = False
xCpt = 0
For Each xCell In Range("A2:B16") 'Plage de cellules à traiter (à adapter)
xCpt = xCpt + 1
xLgr = Len(xCell.Value)
Select Case xCpt
'------------------------------------------------------------
' Traitement MODELE
'------------------------------------------------------------
Case Is = 1
xDerCar = Right(xCell.Value, 1)
If IsNumeric(xDerCar) = True Then 'Dernier caractère = numéro
xResult = Left(xCell.Value, xLgr - 1)
Else 'Dernier caractère = lettre
xResult = xCell.Value
End If
xCol = "A" 'Lettre de la colonne ou seront inscrits les résultats Exemple : A=Colonne A (à adapter)
'------------------------------------------------------------
' Traitement PRODUIT
'------------------------------------------------------------
Case Is = 2
xPos = InStr(1, xCell.Value, "/") 'Cherche la position du / dans la chaine de caractères
Select Case xLgr - xPos
Case Is = 1 'Si avant dernière position
xResult = Left(xCell.Value, xPos - 2) & "/" & Mid(xCell.Value, xPos - 1, 1) & Right(xCell.Value, 1)
Case Else 'Si autre position
xResult = xCell.Value
End Select
xCol = "B" 'Lettre de la colonne ou seront inscrits les résultats Exemple : B=Colonne B (à adapter)
xCpt = 0 'On remet le compteur à 0
End Select
Range(xCol & xCell.Row) = xResult 'On inscrit dans la colonne désignée le résultat
Next xCell
Application.ScreenUpdating = True
MsgBox "TERMINE"
End Sub