[COLOR="DarkSlateGray"][B]Function nettoie(a As Range) As Variant
Application.Volatile
If IsEmpty(a) Then nettoie = "" Else nettoie = a.Value
Do While Left$(nettoie, 1) = Chr(32) Or Left$(nettoie, 1) = Chr(160)
nettoie = Right$(nettoie, Len(nettoie) - 1)
Loop
End Function[/B][/COLOR]