Public Sub majCommentaires()
Dim Cel As Range, TE(), TR(1 To 500), N As Long 'TE et TR sont les deux tableaux ? TR va de 1 à 500 colonnes ?
TE = Feuil1.UsedRange.Value 'Peut-on remplacer usedrange par currentregion si plusieurs tableaux figurent sur la même feuille ?
For N = 2 To UBound(TE, 1) 'Ubound permet de connaître la dimension de TE c a d 9 lignes ?
TR(TE(N, 1)) = TE(N, 2) ' Je dois avouer que je ne comprends pas cette partie...
Next N
Feuil2.[B2:D4].ClearComments
For Each Cel In Feuil2.[B2:D4]
N = Cel.Value
If Not IsEmpty(TR(N)) Then Cel.AddComment TR(N)' Si j'ai bien compris cette condition vérifie que la cellule n'est pas vide, et on y insère un commentaire ?
Next Cel
End Sub