Incrémenter formule CONCATENER

Option Explicit
'--------------------------------------------------
Private Sub Workbook_Open()
Dim visit

     ' Lit la valeur dans la base de registre
     visit = GetSetting(appname:="demo", section:="visiteurs", key:="Nombre")
    
     ' Si aucune valeur n'est présente dans la base de registre ...
     If visit = "" Then
          'on affecte la valeur 1 à la variable visit (première visite)
          visit = 1
      Else
        ' sinon, on incrémente le Nbre de visites
    visit = visit + 1
    End If
     ' Ecrit la nouvelle valeur visit dans la base de registre
     SaveSetting appname:="demo", section:="visiteurs", key:="Nombre", setting:=visit

    ' indique le nombre de visites dans B10
     sheets(1).Range("G4") = "5HA" & Month(Date) & Day(Date) & visit
End Sub

Option Explicit
'------------
 Sub EffacedansRegistre()
     On Error Resume Next
     DeleteSetting "demo"
     Sheets(1).Range("G4").ClearContents
End Sub