Copier ligne en effaçant le contenu de certaines cellules

Bonjour le Forum,

J'ai besoin d'une petite macro pour copier une ligne qui va de A à Z en effaçant le contenu des cellules F, P et U et tout en gardant la mise en forme globale et le contenu des autres cellules.

Cette ligne une fois copiée et complétée avec d'autres valeurs en F, P et U sera de nouveau copiée pour une nouvelle facture et ainsi de suite.

Merci pour votre aide

Cordialement

Fat

Bonjour toutes et tous

En faisant une nouvel macro (enregistrer une nouvelle macro)

ci-joint

crdlt,

André

Bonjour,

    Dim eff, i%
    '...
    eff = Array(6, 16, 21)
    With Worksheets("Destination")
        Worksheets("Origine").Range("A9:Z9").Copy .Range("A9")
        For i = 0 To UBound(eff)
            .Cells(9, eff(i)).ClearContents
        Next i
    End With
    '...

Cordialement.