Insertion paremetrable d'une ligne (vide) sur deux

mapomme à dit:

Bonsoir @rdaniel,

Une piste dans le fichier joint. Le code est dans module1.
🙂

Bonjour et merci🙂pour votre réponse qui dans son principe se rapproche de mon projet
Pourrais je avoir une boite de dialogue pour indiquez le nombre de lignes a prendre en compte ?
j'ai pu décaler le tableau de la colonne C vers la colonne A et n'utiliser qu'une colonne A (en tout cas je crois que j'ai pu...)
je n'ai pas pu démarrer le tableau en ligne 2.
Merci encore
Cordialement
Daniel

Cliquez pour agrandir...

job75 à dit:

Bonsoir rdaniel, mapomme,

Si l'on ne traite que des valeurs ceci est très rapide :

VB:

Sub Insertion()
Dim tablo, ncol%, resu(), i&, n&, j%
With Feuil1 'CodeName de la feuille
    tablo = IIf(.UsedRange.Count = 1, .UsedRange.Resize(, 2), .UsedRange)
    ncol = UBound(tablo, 2)
    ReDim resu(1 To 2 * UBound(tablo), 1 To ncol)
    For i = 2 To UBound(tablo)
        If tablo(i, 1) <> "" Then
            n = n + 1
            For j = 1 To ncol
                resu(n, j) = tablo(i, j)
            Next j
        End If
        n = n + 1
    Next i
    '---restitution---
    .[A2].Resize(n, ncol) = resu
End With
End Sub

Sub RAZ()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With Feuil1.UsedRange
    .Cells(1).EntireColumn.Insert
    .Columns(0) = "=REPT(1,LEN(RC[1]))"
    .Columns(0) = .Columns(0).Value
    Union(.Columns(0), .Cells).Sort .Columns(0), Header:=xlYes 'tri pour accélérer
    Intersect(.Columns(0).SpecialCells(xlCellTypeBlanks).EntireRow, .Cells).Delete xlUp
    .Columns(0).EntireColumn.Delete
End With
End Sub

A+

Cliquez pour agrandir...