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