Msg Box utilisé une seule fois

Bonsoir,

Dans le fichier ci-joint je souhaite lorsque l'on clique sur un bouton que le msg box apparaisse juste une seule fois.

J'ai voulu le faire par rapport à la valeur du compteur mais ça bloque les msg box des autres.

Est ce possible ?

Cordialement.

Bonsoir,

Public Af_A

Sub Affect_A()
    Dim msg As Boolean
    If Not Af_A Like "A*" Then msg = True
    With ActiveSheet
        .Range("A1") = .Range("A1") + 1
        Af_A = "A" & .Range("A1")
    End With
    If msg Then MsgBox "Vous venez de selectionner la touche A. " _
     & "Cliquez dans la cellule de votre choix pour coller cette valeur"
End Sub

Sub Affect_B()
    Dim msg As Boolean
    If Not Af_A Like "B*" Then msg = True
    With ActiveSheet
        .Range("A1") = .Range("A1") + 1
        Af_A = "B" & .Range("A1")
    End With
    If msg Then MsgBox "Vous venez de selectionner la touche B. " _
     & "Cliquez dans la cellule de votre choix pour coller cette valeur"
End Sub

Sub Affect_pause()
    Af_A = Empty
End Sub

Pause comprise !

Merci monsieur MFerrand.

Deux pour le prix d'un Génial.

Vraiment merci à tous.