Sub gestion_caption()
'
Dim i As Long
With Sheets("CUMUL_TBC_" & Sheets("MENU_DA").Cmde.Caption)
For i = 7 To 17
If MsgBox("Etes-vous sûr de vouloir reporter les données.Voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
.Cells(i, 2) .Value = .Cells(i, 2).Value + .Cells(i + 10, 13).Value
Else
Exit Sub
End If
Next
End With
End Sub