Ouvrir les deux fichiers.
Le fichier "commentaires associs" ne doit pas tre renomm. Ou alors, il faudra modifier la macro lui faisant rfrence.

La macro pour extraires les commentaires:

Sub transfert()
Dim i As Integer
For i = 10 To 28
    If Cells(i, 2) = 0 And Len(Cells(i, 2)) = 1 Then
        Cells(i, 6).Copy Workbooks("commentaires associs").Sheets(1).Range("A65536").End(xlUp)(2)
    End If
Next i
End Sub