Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("AE4:AE" & Cells(Rows.Count, "AE").End(xlUp).Row)) Is Nothing Then
Target.Offset(, -2) = Target.Offset(, -2) + Target: Target = ""
End If
If Not Intersect(Target, Range("AF4:AF" & Cells(Rows.Count, "AF").End(xlUp).Row)) Is Nothing Then
Target.Offset(, -2) = Target.Offset(, -2) + Target: Target = ""
End If
'autre cas...
Application.EnableEvents = True
End Sub