VBA sauter une ligne entre chaque case et recopier celle d'avant

Bonjour,

J'ai besoin d'une macro qui me permettra de sauter une ligne entre chaque case et de recopier celle d'avant.

Exemple :

J'ai

A

B

C

Je veux :

A

A

B

B

C

C

J'ai essayé plusieurs méthodes mais j'arrive pas.

Merci à vous 😁

Bonjour,

Une proposition.

Public Sub InsertRowsAndvalues()
Dim tbl, arr(), i As Long, k As Long
    tbl = ActiveSheet.Cells(1).CurrentRegion.Value
    ReDim arr(UBound(tbl) * 2)
    For i = LBound(tbl) To UBound(tbl)
        arr(k) = tbl(i, 1)
        arr(k + 1) = tbl(i, 1)
        k = k + 2
    Next i
    ActiveSheet.Cells(1).Resize(k).Value = Application.Transpose(arr)
End Sub

Il marche très bien, merci beaucoup, vous êtes très fort 🙏🏻

Re,

Bonjour, je vous sollicite encore svp, en fait je veux réaliser la meme chose mais avec plusieurs colonnes comme sur le fichier joint, pourriez vous m'aider svp.