VBA - Suppression d'une plage avant la réinitialisation des données

Bonjour,

Voilà j'ai un problème pour supprimer une plage de données.
Je voudrais, avant de lancer mon remplissage de tableau (voir code ci dessous), supprimer toutes les anciennes données de la feuille "ttt" en commençant à la ligne B (car la ligne A contient les titres du tableau)...

Quelqu'un sait comment faire? :?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ou()   Dim tablo() As String, i As Integer tablo = Split("60601,66501", ",") For i = LBound(tablo) To UBound(tablo)   Sheets(tablo(i)).Range("T7:EV" & Sheets(tablo(i)).Range("EV85").End(xlUp).Row).Copy Sheets("ttt").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next i End Sub

---

Bonjour,
Par exemple en ajoutant cette instruction juste avant la copie.

Code:

---

Sheets("ttt").Range("B1").CurrentRegion.Offset(1, 0).ClearContents

---

Donc

Code:

---

1 2 3 4 5 6 7 8 9

Sub ou() Dim tablo() As String, i As Integer tablo = Split("60601,66501", ",") For i = LBound(tablo) To UBound(tablo) Sheets("ttt").Range("B1").CurrentRegion.Offset(1, 0).ClearContents Sheets(tablo(i)).Range("T7:EV" & Sheets(tablo(i)).Range("EV85").End(xlUp).Row).Copy Sheets("ttt").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next i End Sub

---

Merci !! Cela fonctionne très bien !