Impression etiquette

bonjour

voila mon problème

je souhaite en feuille 2 remplir les étiquettes a imprimer selon modèle feuille tmp

le problème c'est que j'ai 3 lignes a chaque étiquettes alors que sur mon tableau des fois j'ai une ou deux valeur par apport a la colonne A

Exemple de ceux que je souhaite en tmp(2)

merci d'avance

Bonjour,

proposition de correction de ton code

Sub etiquettes()

    Application.ScreenUpdating = False
    Set wsinv = Sheets("Inventaire Plaque")
    Set wsf2 = Sheets("Feuil2")
    If wsinv.Range("A3").Value <> "" Then
        der = wsinv.Cells(Rows.Count, 1).End(xlUp).Row
        MsgBox der
        derlig = wsinv.Range("j2")
        y = 0
        c = 3
        wsf2.Cells.Clear
        While c <= der
            i = i + 1
            If wsinv.Cells(c, 1) <> oldc Then
                i = i + ctr
                Sheets("tmp").Range("A1:f3").Copy Destination:=wsf2.Range("a" & i)

                wsf2.Cells.RowHeight = 13.1
                wsf2.Cells.VerticalAlignment = xlCenter
                oldc = wsinv.Cells(c, 1)
                wsf2.Range("a" & i) = oldc
                ctr = 3
            End If
            ctr = ctr - 1
            wsf2.Range("b" & i) = wsinv.Range("b" & c).Value
            wsf2.Range("c" & i) = wsinv.Range("c" & c).Value
            wsf2.Range("e" & i) = wsinv.Range("f" & c).Value
            wsf2.Range("f" & i) = wsinv.Range("g" & c).Value
            c = c + 1
        Wend
        wsf2.PrintPreview
    End If
    fin = derlig * 3
    wsf2.Range("A1:f" & fin).Clear
End Sub

merci c'est exactement cela