If col > 3 And col < 64 Then
If col = 17 Then .Offset(1, -4).Select Else .Offset(, 1).Select
GoTo 1 'pas Exit Sub !! car il faut réactiver les événements !!
End If
Application.ScreenUpdating = 0: Application.EnableEvents = 0
If col = 56 And lig > 4 And lig < 172 Then
.Value = .Value - .Offset(, -1)
If lig = 171 Then .Offset(-166, 1).Select Else .Offset(, 1).Select
End If
1 Application.EnableEvents = -1
End With
End Sub