XL 2016 Modifier VBA: Message erreur si cellule vide

[ks102]

Bonjour à tous,

Voici ci-dessous une macro qui affiche un message d'erreur lorsque les cellules "AC1,J6:j10,x6:x10,J13:J14,Y13,E16" sont vides.
Le message d'erreur indique: il manque une informatio... et donne le numéro de la cellule.

Ce que je souhaite faire c'est pouvoir modifier le message pour chaque cellule.
Exemple:
Si la cellule AC1 est vide: Il manque l'information du nom d'utilisation
Si la cellule J6 est vide: Il manque l'information de la date du jour

Ect...

Merci d'avance pour votre aide,
Bonne journée,

Kevin

Dim C As Range, ligne&
    With Sheets("EFNC")
        For Each C In .Range("AC1,J6:j10,x6:x10,J13:J14,Y13,E16")
            If C = "" Then .Activate: C.Select: MsgBox "Il manque une information en " & C.Address(0, 0), vbInformation, "Information": Exit Sub
        Next
    End With

 

[Hasco]

Bonjour,

Si les étiquettes des colonnes (parce que je suppose et ne peut faire que ça) sont en ligne 1:

If C = "" Then .Activate: C.Select: MsgBox "Il manque '" & .cells(1,C.Column) & "'", vbInformation, "Information": Exit Sub

Bon après-midi