Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
Dim Texte As String
' Vérifie si la modification est dans la colonne A
If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
' Parcourt chaque cellule modifiée dans la colonne A
For Each Cellule In Target
If Not IsEmpty(Cellule) Then
Texte = Cellule.Value
' Supprime tous les espaces au début (y compris les caractères invisibles)
Do While Left(Texte, 1) = " " Or Asc(Left(Texte, 1)) = 160 Or Asc(Left(Texte, 1)) = 9
Texte = Mid(Texte, 2)
Loop
Cellule.Value = Texte
End If
Next Cellule
End If
End Sub