Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Run Test
End Sub
Sub Test()
Dim Ligne As Long
For Ligne = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(Ligne, "A").Value <> "" Then
Cells(Ligne, "A").Value = Cells(Ligne, "A").Value & Chr(32) & "SUFFIXE"
End If
Next Ligne
End Sub