Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim co As Range 'plage copier
For Each co In Feuil6.Range("B10:NC10,B12:nc12,B14:nc14,B16:nc16,B18:nc18,B20:nc20,B22:nc22,B24:nc24,B26:nc26,B28:nc28,B30:nc30,B32:nc32,B34:nc34,B36:nc36,B38:nc38,B40:nc40,B42:nc42,B44:nc44,B46:nc46,B48:nc48,B50:nc50,B52:nc52,B54:nc54,B56:nc56,B58:nc58,B60:nc60,B62:nc62")
'Je voudrai selectionner le range b10:nc10, b12:nc12,... de la feuil6
With Feuil5.Range(B12:nc38) 'Et le mettre en commantaire le range b12:nc38 sur la feuil5
On Error Resume Next
.Comment.Delete
If Not IsEmpty(co) Then
With .AddComment
.Text co.Text
.Visible = False
.Shape.TextFrame.AutoSize = True
End With
End If
End With
Next
End Sub