Onglets auto remplis par fiche "nouveau" + feuilles recap

Salut Forum,
Pourquoi je créer un nouveau fil? Au départ c'est un fil
de la grande qui s'appelait, "liaisons de fichiers et données",
Or j'ai plus ou moins repris cette histoire à mon compte
et comme j'ai tout mis dans 1 seul fichier, le titre de la grande n'est plus valable,
ça trompe les visiteurs (plusieurs centaines déjà !!)

Evidemment j'ai une question, même 2 :

1) J'ai mis le code ci dessous (Macro1) pour supprimer les zéros
dans ma feuille Prévisions des repas

Range("B3:AT48").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Ca marche parfaitement bien sauf sur la ligne 48 ou il
y a la formule Somme (sur cette ligne ca efface les totaux
et pas les zéros ) c'est quoi l'astuce ??

2) J'ai pondu dans la feuille nouveau en B5 une espèce de
numérotation automatique

Private Sub Worksheet_activate()
Range("b5") = WorksheetFunction.CountA(Sheets("patients"). _
Range("A7:A" & Range("A65536").End(xlUp).Row)) + 1
End Sub

Ca fait référence à la feuille "Patients" qui s'alimente toute seule
au fur et à mesure que je crée des nouveaux.
Mais voilà, un de mes patients est décédé (hélas)
ou bien il est sorti. Si je décide de l'enlever de la feuille "Patients"
le compteur recule et du coup je vais me retrouver avec des doublons
de n°. On pourrait créer une feuille bidon avec la suite des
numéros pour "incrémenter" mon compteur à partir de celle-ci
et non de la feuille "Patients", mais c'est du bricolage.
Y a surement plus joli, je sais pas faire.

Voili Voilou, encore écris un roman

Les curieux peuvent regarder, y a pas mal de trucs qui marchent bien.

Merci d'avance pour mes questions

Bonne journée et Vive XLD