j'ai trouvé : il faut effacer avant de supprimer
u = Cells(14, 1).End(xlDown).Offset(1, 1).Address
v = Cells(14, 1).End(xlDown).Offset(17, 9).Address
Range(u, v).Select
Selection.ClearContents
Call fusionne
End Sub
Sub fusionne()
u = Cells(14, 1).End(xlDown).Offset(1, 1).Address
v = Cells(14, 1).End(xlDown).Offset(17, 9).Address
Range(u, v).Select