XL 2010 Copier cellule d'un onglet vers un autre suivant un template

Modeste à dit:

Bonjour Profane,

Pas tout à fait certain d'avoir compris, mais peut-être quelque chose comme:

VB:

Private Sub CommandButtonGenerer_Click()
tabloCells = Array("F13", "F15", "F17", "F19", "F21", "F23", "F25", "I13", "I15", "I17", "I19", "I21", "I23", "I25", "L13", "L15", "L17", "L19", "L21", "L23", "L25")
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If c = "Prins" Then
        Sheets("Template_Prins").Range(tabloCells(x)) = c.Offset(0, 1)
        x = x + 1
    End If
Next c
End Sub

Cliquez pour agrandir...