Bonjour,
tu peux utiliser l'enregistreur de macros, qui est très utile !
Sinon, le code donnerai quelque chose comme ça :
Sub suppression()
Rows("1:3").Delete Shift:=xlUp
Columns("P:P").Delete Shift:=xlToLeft
Columns("E:F").Delete Shift:=xlToLeft
Range("A1").Select
End Sub
Attention, ce code supprime les lignes et les colonnes sur la feuille active !
Dis moi si cela te convient,
RemBabar