Bonjour Norbert
Une proposition de code :
Sub DupliquerNom()
'On constitue une liste des occurrences
Const cOccurrences = "4,9,13,18,22"
Dim oCell As Range
Dim aOccurrences() As String
Dim sNom As String, i As Integer
'On transforme la liste en tableau
aOccurrences = Split(cOccurrences, ",")
'On affecte la cellule à copier
Set oCell = ActiveSheet.Cells(10, 5)
sNom = oCell.Value
'On boucle sur les occurences du tableau
For i = 0 To UBound(aOccurrences)
'On utilise le déplacement à partir de la cellule initiale
oCell.Offset(CInt(aOccurrences(i))).Value = sNom
Next
End Sub
Je joins mon classeur de test.