XL 2019 Macro pour dupliquer

Bonjour,

Une cellule non vide soit dupliquée sur 3 lignes ? Qu'entends tu par là ? Faut-il que chaque ligne de la zone à dupliquer soit dupliquée 3 fois ?

Si j'ai bien compris, voir ci joint.

Bonne continuation

Merci beaucoup pour ce rapide retour. C'est exactement ce que je souhaitais.
J'ai une dernière petite question : pour l'adapter à mon fichier final (qui a plein d'autres onglets), dans le détail de la macro où est-ce que modifie le nom de l'onglet qui était initialement "Identification facture" de mon fichier test ?

Sub Bouton1_Cliquer()
For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
Range("Dupliquer!A" & 3 * (i - 5) + 1) = Range("A" & i)
Range("Dupliquer!A" & 3 * (i - 5) + 2) = Range("A" & i)
Range("Dupliquer!A" & 3 * (i - 5) + 3) = Range("A" & i)
Next i

End Sub

Merci encore

Re,

Pas besoin par cette méthode. Normalement, il faudrait insérer Worksheets("Identification facture"). devant Range("A" & i), mais comme mon bouton se trouve sur la feuille "mère" et que j'appelle la feuille Dupliquer sans l'activer, il n'y a rien à modifier si le bouton se trouve sur la feuille "Identification facture" (ou son équivalent, quel que soit son nom).

Bonne continuation

Parfait, merci beaucoup pour cette aide !