Duplication de cellules excel

Bonjour,
Ma proposition : http://www.cjoint.com/c/EFdoiNOQOAY

Bonjour,
Je tiens à vous faire remarquer que la procédure a été réaliser pour l'exemple fourni soit en colonne [A3 :A..] les référence [RD..] à concaténer avec les valeurs (titre colonne) de la ligne [2] et ceci chaque valeur contenue dans la colonne y relative.
Maintenant il s'agit de valeurs dans une plage (une colonne) se trouvant n'importe où sur la feuille et de ce fait la procédure ne peut pas la trouver et de plus il n'y a pas de concaténation à réaliser donc cette procédure ne convient pas.
J'attends des précisions de votre part pour la suite.
En marge, des colonnes sans titre c'est du n'importe quoi...!

Salutations.
Le Pingou

Bonjour,
Voir la proposition ou les nombres saut et recopie (doublon) par choix sur formulaire (UserForm).
Le fichier : https://www.cjoint.com/?0EFwLePz3Av

Bonjour,
Merci pour le fichier.
Je pense que la procédure est utilisable en y ajoutant les compléments pour la rendre plus souple d'utilisation sans devoir intervenir dans le code (entrer les paramètres avant).
Je suis absent pour le week-end, ce sera pour lundi.

Bonjour,
A première vue il semble que ce n'est pas le même problème que le poste résolu.
Pouvez-vous expliquer ce que vous voulez avoir comme résultats et peut-être que la solution précédente est envisageable ... !
Merci de joindre le fichier que j'ai transmis en avril passé.

Bonjour,

Je suis confronté à un problème fréquemment, lorsqu'il s'agit de collé des cellules à répétition avec un écartement entre elle (comme précédemment).

https://www.cjoint.com/c/EEBqedDVeae

Au préalable, j'ai déjà posé une question à se sujet, et j'ai ainsi reçu une réponse par macro, mais qui est vraiment compliqué comparé à mon niveau d'Excel en code.

Est il possible d'avoir un code VBA comme solution. Et qui est très très simple, avec tout les détails et astuces pour pouvoir l'adapté aux autres documents.

Merci d'avance

Bonjour,
J'ai un peu d'avance, les explications sont dans la procédure.
Voir fichier : https://www.cjoint.com/?3DhsJEcBGPa

Bonjour,
Merci pour l'information.
OK pour une explication du code, ce sera pour demain mercredi.

Bonjour,
Selon ce que j'ai compris, il est possible de le réaliser avec une procédure.
Je vous laisse essayer ce code :

Sub copier4saut5()
Dim code()
nl = Cells(Rows.Count, 1).End(xlUp).Row
nc = Cells(2, Columns.Count).End(xlToLeft).Column
c = 0
Set shr = Sheets("Résultat")
ReDim code(1)
For co = 2 To nc
    For li = 3 To nl
        If Len(Cells(li, co)) > 3 Then
        code(c) = Cells(li, co).Value
        c = c + 1
        ReDim Preserve code(0 To c)
        End If
    Next li
Next co
' renseigner feuille résultat
lir = 1
shr.Columns(7).ClearContents
For r = 0 To (c - 1)
    For st = 0 To 3
        shr.Cells(lir + (6 * st), 7) = code(r)
    Next st
    lir = lir + (6 * st)
Next r
MsgBox "Les " & c - 1 & " codes sont reportées"
End Sub