Correspondance colonnes - lignes

Bonjour à tous,

Je cherche à remplacer, à partir de la ligne 2, les lettres par les choix correspondants indiqué dans la première ligne (et ce pour de multiples colonnes et lignes).

Ce qui équivaudrait à ce résultat :

Quelqu'un aurait-il une suggestion ? Je vous remercie pour votre aide :) et vous souhaite une bonne journée

Bonjour,

une des propositions possibles :

Sub RemplaceABC()
    Dim Plage As Range, Cel As Range
    ' ici on désigne la plage de cellules où cela doit être appliqué (fonction de vos images !)
    Set Plage = Range("D2:F3")
    ' on boucle sur cette Plage
    For Each Cel In Plage
        ' sécurité : on vérifie que la cellule ne comporte qu'un seul caractère
        If Len(Cel) = 1 Then
            ' en fonction de ce caractère on va afficher le mot correspondant
            Select Case Cel.Value
                Case "A"
                    Cel.Value = "Pomme"
                Case "B"
                    Cel.Value = "Cerise"
                Case "C"
                    Cel.Value = "Banane"
                ' supprimer ces deux lignes si vous ne voulez rien faire en dehor de A, B ou C
                Case Else
                    Cel.Value = "N/A"
            End Select
        End If
    Next
End Sub

N'hésitez pas à fourni un fichier la prochaine fois

@ bientôt

LouReeD