Private Sub Worksheet_Change(ByVal Target As Range)
'condition 1 : le changement s'effectue dans pa plage B11:B16 autrement dit,
'si l'intersection de la cellule changée avec la plage B11:B16 n'est pas vide
If Not Application.Intersect(Target, Range(Cells(13, 2), Cells(16, 2))) Is Nothing Then
'condition 2 : si la cellule vaut '1' alors la 13ème cellule à sa droite vaut '0.5'
If Target.Value = '1' Then Target.Offset(0, 13).Value = '0.5'
End If 'fin de la condition 1
End Sub