Création d'un planning de présence

Bonjour,

Je viens de créer un planning de présence sur excel avec des macros mais je ne suis pas très douée avec VBA, ça ne fonctionne pas !

J'ai une feuille "modele" où je renseigne le nom des personnes, la semaine en cours et leur présence et une autre feuille pour consulter le planning.
La première macro enregistre mes données sous une feuille de la semaine enregistrée et efface les infos pour laisser le modèle vierge.
La 2e macro permet de consulter les différentes semaines enregistrées.
La 3e macro inactive l'affichage des différentes feuilles enregistrées.

Voici le détail des macros :

Sub archiver()
'
' archiver Macro
'

'
Dim ns As String

ns = Range("B7")

Sheets("Alimentation planning").Copy Before:=Sheets(1)
Sheets("Alimentation planning (2)").Select
Sheets("Alimentation planning (2)").Name = ns
Sheets(ns).visible = False
Sheets("modele").Select
Range("A1,A2,C8 37").ClearContents
MsgBox "Archivage terminé !", vbInformation
Sheets("modele").visible = True


End Sub
Sub consult()

Dim ns As String
ns = Range("A2")
Sheets(ns).visible = True
Range("C3") = ""
Sheets(ns).Select
Sheets("modele").visible = True

End Sub

Sub inact()
ActiveSheet.visible = False


End Sub


Merci de me venir en aide !