Bonjour,
on préfère avoir des fichiers pour coder, mais comme je suis de bonne humeur, j'en fournis un avec un exemple, le code utilisé est le suivant:
Sub test()
der_lig = Range("a" & Rows.Count).End(xlUp).Row
texte = "test: "
tableau = Range("a1", "a" & der_lig)
For i = LBound(tableau, 1) To UBound(tableau, 1)
tableau(i, 1) = texte & tableau(i, 1)
Next i
Range("a1", "a" & der_lig) = tableau
End Sub
Voici le fichier: