Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Select Case Target.Row
Case 13, 14, 15, 19, 20, 24, 25, 26, 27
If Not IsNumeric(Target) Then
Target.Select
MsgBox "Veuillez renseigner un nombre dans cette case"
'Target.ClearContents 'éventuellement...
Exit Sub
Else
Call CalculSignal
End If
End Select
End If
End Sub
Sub CalculSignal()
If IsEmpty(ActiveCell) Then Exit Sub
Call macro1
End Sub
Sub macro1()
Cells(LigneCellule, ColonneCellule + 4).Value = 1
ActiveCell.Offset(0, 1).Value = 2
ActiveCell.Offset(0, 4).Value = 1
End Sub