Supprimer une partie de cellule

Bonsoir à toutes et à tous. Je voudrais savoir s'il est possible de supprimer une partie de cellule et comment. J'ai mis un peu plus d'explications sur le fichier joint. Merci pour votre temps passé.

Bonsoir,

en B2 et à tirer vers le bas:

=SI(ESTERR(TROUVE("/";A2;1));A2;GAUCHE(A2;TROUVE("/";A2;1)-1))

Cdlt

Bonsoir à tous,

Un essai par macro...

Sub essai()
 Dim tb, a, i
  Application.ScreenUpdating = False
   With Sheets("Feuil1")
    dl = .UsedRange.Rows.Count
    tb = .Range("A1:A" & dl)
     For i = 1 To UBound(tb, 1)
      If tb(i, 1) <> "" Then
       a = Split(tb(i, 1), "/")
       tb(i, 1) = a(0)
      End If
     Next i
    .Range("A1").Resize(UBound(tb, 1), 1) = tb
    Erase tb: Erase a
   End With
End Sub

Cordialement,

OK. Merci à vous deux. La formule et la macro fonctionnent nickel. Merci pour votre aide