Microsoft 365 supprimer espace

Sub cal6()

    fin = Cells(Rows.Count, 2).End(xlUp).Row
   For n = 2 To fin
        sup = InStr(Cells(n, 2), "(")
        If sup > 0 Then Cells(n, 2) = Left(Cells(n, 2), sup - 1)
    Next

End Sub

Sub Test_cal6_2()
    Dim Tableau_en_Cours, Range_en_Cours, Compteur As Long
    Set Range_en_Cours = Range("B2:D" & Cells(Rows.Count, 2).End(xlUp).Row)
    Tableau_en_Cours = Range_en_Cours.Value
    For Compteur = LBound(Tableau_en_Cours, 1) To UBound(Tableau_en_Cours, 1)
        Tableau_en_Cours(Compteur, 3) = "00:" & Left(Tableau_en_Cours(Compteur, 1), InStr(1, Tableau_en_Cours(Compteur, 1), "'") - 1) & ":" & Mid(Tableau_en_Cours(Compteur, 1), InStr(1, Tableau_en_Cours(Compteur, 1), "'") + 1, InStr(1, Tableau_en_Cours(Compteur, 1), "''") - (InStr(1, Tableau_en_Cours(Compteur, 1), "'") + 1))
        Tableau_en_Cours(Compteur, 2) = Mid(Tableau_en_Cours(Compteur, 1), InStr(1, Tableau_en_Cours(Compteur, 1), "''") + 2, 2)
        Tableau_en_Cours(Compteur, 1) = Tableau_en_Cours(Compteur, 3): Tableau_en_Cours(Compteur, 3) = ""
    Next Compteur
    Range_en_Cours.Value = Tableau_en_Cours
 End Sub

Sub Test_cal6_2()
    Dim Tableau_en_Cours, Range_en_Cours As Range, Compteur&, Val_en_Cours$ 'définition des variables
    Set Range_en_Cours = Range("B2:C" & Cells(Rows.Count, 2).End(xlUp).Row) 'référencement du tableau final des cellules sur deux colonnes
    Tableau_en_Cours = Range_en_Cours.Value 'création du tableau Vb en mémoire
    For Compteur = LBound(Tableau_en_Cours, 1) To UBound(Tableau_en_Cours, 1) 'boucle sur toutes les lignes du tableau
        Val_en_Cours = Trim(Tableau_en_Cours(Compteur, 1)) 'la colonne 1 de chaque ligne est copiée dans val en cours, correspond à la valeur en colonne B
        Tableau_en_Cours(Compteur, 1) = "00:" & Left(Val_en_Cours, InStr(1, Val_en_Cours, "'") - 1) & ":" & _
            Mid(Val_en_Cours, InStr(1, Val_en_Cours, "'") + 1, InStr(1, Val_en_Cours, "''") - (InStr(1, Val_en_Cours, "'") + 1)) 'extraction des données minutes et secondes en recherchant les caractères de séparation ' et écrasement des données en colonne 1
        Tableau_en_Cours(Compteur, 2) = Mid(Val_en_Cours, InStr(1, Val_en_Cours, "''") + 2, 2) 'extraction des centièmes en 2e colonne du tableau
    Next Compteur
    Range_en_Cours.Value = Tableau_en_Cours 'on écrase les valeurs des cellules avec les valeurs du tableau
End Sub

Sub MMSS()
Dim tablo, i&, x$, s, ub%
With Sheets("Données brut").[A1].CurrentRegion.Columns(2).Resize(, 2) 'colonnes B et C
    tablo = .Value
    For i = 2 To UBound(tablo)
        x = tablo(i, 1)
        s = Split(x, "''")
        If UBound(s) > 0 Then
            tablo(i, 2) = Val(s(1))
            x = s(0)
            s = Split(x, "'")
            ub = UBound(s)
            If ub = 0 Then tablo(i, 1) = Val(s(0)) / 86400
            If ub > 0 Then tablo(i, 1) = Val(s(0)) / 1440 + Val(s(1)) / 86400
        End If
    Next
    '---restitution---
    .Columns(1).NumberFormat = "mm:ss"
    .Columns(2).NumberFormat = "00"
    .Value = tablo
End With
End Sub