Sub Macro2()
'
' Extrait le commentaire s'il existe
' de la colonne B vers la colonne C
Dim Num As Long, Col as long
Col =Application.match("date 1",Range("A1:IV1"),0)
For Num = 2 To 4000 'il ya 4000 lignes
If Not (Cells(Num, 13).Comment) Is Nothing Then
Cells(Num, Col) = Cells(Num, 13).Comment.Text
End If
Next Num
End Sub