XL 2013 effacer une colonne

[maval]

Bonjour
J'ai dans une colonne "B" une liste de nom et en "H2" j'ai le nombre de cellule remplie avec ce code

="Il y a "&SOMMEPROD(($B$5:$B$1687<>"")*1)&" Régions enregistrés"

Lorsque j'efface la colonne avec ce code

Sub efface()
Worksheets("Feuil1").Range("B4:B65536").Delete Shift:=xlUp
End Sub

Il m'efface la colonne et ma formule devient #REF!

Je vous remercie d'avance

Max

 

[M12]

Bonjour

comme ceci

Sub efface()
Worksheets("Feuil1").Range("B4:B65536").ClearContents
End Sub

 

[maval]

Je te remercie M12