XL 2013 VBA supprimer Les espaces avant un retour chariot

Sub Bouton()
Dim tab_str_temp() As String
Dim iNbLigneDci As Integer

iNbLigneDci = Range("R" & Rows.Count).End(xlUp).Row 'récupère la dernière ligne qui contient des données sur la colonne R
For i = 3 To iNbLigneDci 'pour chaque ligne à partir de la ligne 3
    If Cells(i, "R") <> "" Then 'si la cellule n'est pas vide (sinon bug)
        chaine = "" 'initialise la chaine
        tab_str_temp = Split(Cells(i, "R"), Chr(10)) 'on sépare la chaine selon le retour chariot et on met dans un tablo
        For j = UBound(tab_str_temp) To 0 Step -1 'pour chaque élément du tablo
            If tab_str_temp(j) <> "" Then chaine = Trim(tab_str_temp(j)) & Chr(10) & chaine 'on supprime les espaces
        Next j
        Cells(i, "R") = Left(chaine, Len(chaine) - 1) 'on supprime le dernier retour chariot
    End If
Next i
End Sub