Option explicit
Sub Worksheet_Change(ByVal Cible As Range)
If Not Intersect(Cible, Range("AF2:AF60")) Is Nothing Then
If Cible.Rows.Count = 1 Then
If Cible.Value = 1 Or Cible.Value = "1" Then
Cible.Offset(0, 20).Select
End If
End If
End If
If Not Intersect(Cible, Range("AG2:AG60")) Is Nothing Then
If Cible.Rows.Count = 1 Then
If Cible.Value = 1 Or Cible.Value = "1" Then
Cible.Offset(0, 19).Select
End If
End If
End If
End Sub