re
Voici un code à placer dans un module dans l'éditeur VBA et éventuellement à associer à un bouton sur la feuille
Sub test()
Dim i As Integer
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 3
Rows(i).Resize(2).Insert
Rows(i - 1).Copy Range("A" & i & ":" & ("A" & i + 1))
Next i
End Sub
Veillez à enregistrer votre fichier au format XLSM afin qu'il prenne en charge les macros
Si ok, merci de cloturer le fil en cliquant sur la case à cocher verte à coté du bouton Editer lors de votre réponse
Cordialement