Bonjour,
tu n'as aucune raison de fusionner tes cellules 2 à 2, ça complique tout inutilement.
Refait ta feuille en les supprimant et en élargissant tes colonnes.
Tout sera beaucoup plus simple pour toi ensuite
Dans ta boucle, pourquoi mettre :
.Cells(7, i).Value = WorksheetFunction.VLookup(.Range("G10").Value, Sheets("Profs").Range("A1:E43"), 3, False)
pour l'écraser tout de suite après avec :
.Cells(7, i).Value = Mid(.Cells(7, i), j, 1)
??
Lis une seule fois ton n° de matricule que tu mets dans une variable. Ensuite travaille avec cette variable.
Worksheet_SelectionChange se déclenche à chaque sélection.
Pas sûr du tout que ce soit l'événement approprié...
Change sans doute
eric