If Cells(X, Y + j) <> "" Then
WsD.Cells(i + 1, c) = Cells(X, Y + j)
'S'il y a un commentaire dans la colonne y+j de la ligne 5, alors ...
If Not (Cells(5, Y + j).Comment Is Nothing) Then
'Suppression d'un commentaire éventuel dans la cellule de destination
WsD.Cells(i + 1, c).ClearComments
'Ajout d'un commentaire
WsD.Cells(i + 1, c).AddComment
'Copie le commentaire de la cellule de la feuille Evaluation dans la cellule destinataire
WsD.Cells(i + 1, c).Comment.Text Trim(Cells(5, Y + j).Comment.Text)
WsD.Cells(i + 1, c).Comment.Shape.DrawingObject.Font.Size = 11
WsD.Cells(i + 1, c).Comment.Shape.DrawingObject.Font.Bold = True
WsD.Cells(i + 1, c).Comment.Shape.DrawingObject.AutoSize = True
End If
End If
Next
Y = Y + Col(i)
Next