bonjour,
Sub Rouge()
With Range("G67") 'votre cellule rouge
Application.Goto .Offset(, 1 - .Column), 1 'positionnez la position haut & gauche de l'écran à A67
Application.Goto .Offset(0), 0 'positionnez-vous a G67
End With
End Sub
Sub Jaune()
With Range("G129") 'votre cellule jaune
Application.Goto .Offset(-1, 1 - .Column), 1 'positionnez la position haut & gauche de l'écran à A128
Application.Goto .Offset(0), 0 'positionnez-vous a G129
End With
End Sub