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 : Sélectionner tout - Visualiser dans une fenêtre à part
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