Supression de texte situé après une extension

Bonjour

J'importe une page HTML d'un automate et je souhaite modifier la mise en page. Mon problème c'est que je souhaite supprimer dans chaque cellule, tout le texte qui se trouve derrière l’extension ".csv" mais je souhaite que l'extension ne soit pas supprimée. Voici mon code :

Tableau = Range("A1:A" & Range("a65536").End(xlUp).Row)
    For i = 1 To UBound(Tableau)
        Tableau(i, 1) = Split(Tableau(i, 1), ".csv")(0)
    Next i
    Range("B1").Resize(UBound(Tableau), 1) = Tableau

Merci pour votre aide.

bonjour,

une proposition

Tableau = Range("A1:A" & Range("a65536").End(xlUp).Row)
    For i = 1 To UBound(Tableau)
        Tableau(i, 1) = Split(Tableau(i, 1), ".csv")(0) & ".csv"
    Next i
    Range("B1").Resize(UBound(Tableau), 1) = Tableau

Merci

Il fallait y penser