Sub Commentaires()
Dim com As String
Dim ligne As Range
For Each ligne In Sheets
ligne = Range("B1:" & Split(Feuil1.UsedRange.Address, ":")(1)).Value
com = Columns(1).Value
If ligne.Sheets(ActiveSheet.Index - 1).Value = ligne.Sheets(ActiveSheet).Value Then
com.Sheets(ActiveSheet.Index - 1).Value = com.Sheets(ActiveSheet).Value
End If
Next ligne
End Sub