Macro pour repeter une phrase

Pour partager ton fichier:

1. tu le mets à disposition sur Internet (cjoint.com, google drive, ...)
2. tu partages ici un lien vers le fichier

Le code ci-dessous va mettre les valeurs souhaitées dans une autre feuille du même classeur.

Option Explicit
Const c_siren As String = "a"
Const c_phrase As Integer = 10 'numéro de la colonne phrase, partant de la colonne siren
Const c_src As String = "Feuil1"
Const c_dest As String = "pub"
Sub cat_siren()
Dim clsrc As Range, fsrc As Worksheet, fdest As Worksheet, psiren As String, cldest As Range
Set fsrc = ThisWorkbook.Sheets(c_src)
Set fdest = ThisWorkbook.Sheets(c_dest)
Set clsrc = fsrc.Cells(2, c_siren)
Set cldest = fdest.Cells(2, 1)
psiren = ""
Do While clsrc <> ""
    If clsrc = psiren Then
        cldest.Offset(-1, 1) = cldest.Offset(-1, 1) & vbCrLf & clsrc.Offset(, c_phrase)
    Else
        psiren = clsrc
        cldest = clsrc
        cldest.Offset(, 1) = clsrc.Offset(, c_phrase)
        Set cldest = cldest.Offset(1)
    End If
    Set clsrc = clsrc.Offset(1)
Loop
End Sub

Tu peux ajuster les valeurs des lignes 2 à 5 pour spécifier les noms de feuilles et les colonnes à traiter.