Dim col As Variant
col = Application.Match([N2], [G2:K2], 0)
If IsNumeric(col) Then
Cells(Lign, col + 6).ClearComments 'sécurité
Cells(Lign, col + 6).AddComment "Preneur" & vbLf & [N6]
Cells(Lign, col + 6).Comment.Shape.TextFrame.AutoSize = True
End If
col = Application.Match([N3], [G2:K2], 0)
If IsNumeric(col) Then
Cells(Lign, col + 6).ClearComments 'sécurité
Cells(Lign, col + 6).AddComment "Appelé"
Cells(Lign, col + 6).Comment.Shape.TextFrame.AutoSize = True
End If