Sub test()
num = Range("B3").End(xlDown).Row 'Cherche le numéro de la ligne de la derniere cellule écrite en B
Cells(num, 2).ClearContents 'éfface cellule derniere ligne col B
Range(Cells(num, 7), Cells(num, 26)).ClearContents ' éfface plage derniere ligne de col G à Z)
End Sub