Réparation d'une macro avec valeurs relatives

Bonjour le Forum,

Je me retrouve avec un petit problème dont je n'arrive pas à le résoudre.

j'ai une Macro pour un tableau dans laquelle celle ci est censé copier la ligne sélectionnée (depuis la colonne A ) du tableau en reférences relatives, et le copie à la ligne suivante.

une fois copié sur la ligne suivante, on efface le contenu de certaines cellules de la nouvelle ligne ( dans l'exemple joint colonne B, colonne D, colonne F )

Pour résumé, Cette macro est relié à un rond bleu que j'ai crée, c'est à dire qu'à chaque fois que je click sur ce bouton, en me mettant sur la colonne A, il me copie la ligne supplémentaire en dessous et en effaçant le contenant des cellules de la nouvelle ligne.

Le code de la macro ci-joint se bloque sur la ligne 3 et visiblement ne tient pas compte des références relatives.

Si quelqu'un peut me rectifier cette macro, je l'en remercie.

Cordialement;

Mamarus

bonjour,

une proposition

Sub Macro2()
    '
    ' Macro2 Macro
    '

    '
    dl = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range("A5:J5").Copy Cells(dl, 1)
    Range("B" & dl & ",D" & dl & ",F" & dl).ClearContents
    Cells(dl, 1).Select
End Sub

Bonjour H2so4,

Impeccable cela fonctionne, ça fait des jours que je galérai dessus.

Merci et bonne journée,

Cordialement;

Mamarus