Bonsoir Hurricane,
Tu trouveras en pièce jointe ton exemple avec la macro qui permet de le traiter.
Le code est le suivant :
------------------------------------------------------------------------------------------------
Dim RngCmt, RngVal As Range
Set RngCmt = Sheets("Feuil1").Range("A8:E28") 'Plage contenant les cellules avec commentaires
Set RngVal = Sheets("Feuil2").Range("A9:K12") 'Plage contenant les valeurs à mettre dans les commentaires
For Each RowCmt In RngCmt.Rows
For Each RowVal In RngVal.Rows
If RowCmt.Cells(1).Value <> "" And RowCmt.Cells(1).Value = RowVal.Cells(3).Value Then
If RowCmt.Cells(1).Comment Is Nothing Then RowCmt.Cells(1).AddComment
RowCmt.Cells(1).Comment.Text Text:= _
"Matricule : " & RowVal.Cells(1).Value & Chr(10) & _
"Badge : " & RowVal.Cells(2).Value & Chr(10) & _
"etc ...."
Exit For
End If
Next RowVal
Next RowCmt
------------------------------------------------------------------------------------------------
Attention la comparaison des "noms" qui permet de faire le rapprochement entre les données de Feuil1 (Cellules avec commentaires) et celles de Feuil2 (Cellules informations à mettre dans les commentaires) est "Case Sensitive". Donc respecter majuscules et miniscules de part et d'autre.
En espérant avoir répondu à la question.
Cordialement.
Omicron.