Valeur en fonction de plusieurs critères

Private Sub Worksheet_Activate()
  Set f = Sheets("5 joueurs")
  ligne = 2
  For Each c In f.Comments
    adr = c.Parent.Address
    Cells(ligne, 1) = f.Cells(Range(adr).Row, 1)
    Cells(ligne, 2) = f.Cells(1, Range(adr).Column)
'    Cells(ligne, 3) = f.Range(adr)
    temp = c.Text
    Cells(ligne, 3) = Mid(temp, InStr(temp, ":") + 1)
    Cells(ligne, "d") = IIf(f.Range(adr).Value > 0, "p", "n")
    ligne = ligne + 1
  Next c
End Sub

Cells(ligne, 4) = IIf(f.Cells(f.Range(adr).Row, "L") > 0, "P", "N")