Merci pour tes réponses.
Où avais-je la tête ?
De jour en jour, je me perfectionne grâce à votre aide à tous
Mille mercis encore.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 9 Then
Cells(Target.Row, Target.Column + 1).Activate
Else
If Target.Column = 4 Then
If Mid(Target.Value, 1, 1) = "+" Then
Cells(Target.Row, 7).Activate
Else
Cells(Target.Row, 5).Activate
End If
End If
End If
End Sub