Supprimer des colonnes avec des données dont le nombre de lignes varient

onyirimba à dit:

Bonjour,

J'ai un tableau dont les données varient chaque semaine (ex : semaine 1 => données vont jusqu'à la ligne 30 , semaine 2 => données vont jusqu'à la ligne 10, semaine 3 => données vont jusqu'à la ligne 50 etc... )

je souhaiterai un programme qui puisse supprimer ces données chaque semaine en tenant compte du fait que la dernière ligne associées à ces données varient chaque semaine.

Merci beaucoup de votre aide.

Cliquez pour agrandir...

Option Explicit

Sub supprimer_lignes()
   Dim i As Integer
   For i = Cells(Rows.Count, 5).End(xlUp).Row To 5 Step -1
      Cells.EntireRow(i).Delete
   Next i
End Sub