Décaler vers le bas

salut Forum!

j'ai un petit code qui permet de supprimer le contenu d'une ligne puis décaler le contenu d'un tableau vers le haut.

J'essaie maintenant de juste pouvoir décaler le contenu du tableau vers le bas, à partir de la ligne active, sans pour autant effacer le contenu de la ligne active

toujours dans le tableau... j'imagine qu'en ce basant sur ce code on peut y arriver, apres plusieurs essaies je n'y arrive, surement un petit truc simple qui cloche comme d'habitude!

Sub Supprimer()
Dim T1, Ligne As Long
Sheets("Feuil1").Unprotect
  Ligne = Selection.Row
  If Ligne > 10 And Ligne < 44 Then
    Range("A" & Ligne).Resize(1, 6).ClearContents
    If Ligne < 43 Then
      With Range(Range("A" & Ligne + 1), Range("F43"))
        T1 = .Value
        .ClearContents
      End With
      Range("A" & Ligne).Resize(UBound(T1), UBound(T1, 2)) = T1
    End If
  End If
  Sheets("Feuil1").Protect
End Sub

Bonjour,

voici un exemple pour insérer 5 lignes,

Rows(ActiveCell.Row & ":" & ActiveCell.Row + 4).Insert Shift:=xlDown

Merci de bien vouloir m'aider!

J'ai essayé d'intégrer le code mais ca a fait grossir mon tableau .. il ne faut pas que mon tableau aie plus de ligne

re,

si tu veux décaler le tableau vers le bas, il faut que la cellule active soit sur la ligne entête du tableau

bonjour à tous

à quoi sert de "décaler" des lignes (vers le haut ou le bas) ? ? ?

amitiés