Re-bonjour,
Dans le module de la feuille "Rapport intervention", ajoute les lignes suivantes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$C$13" Then Exit Sub
If Target = "" Then Exit Sub
ligne = Application.Match(Target, Sheets("BT en cours").[H:H], 0)
If IsError(ligne) Then MsgBox "BT inconnu": Exit Sub
Sheets("BT en cours").Activate
ActiveSheet.Cells(ligne, 8).Activate
End Sub
... et teste ensuite
Si tu préfères sélectionner la ligne entière, remplace l'instruction
ActiveSheet.Cells(ligne, 8).Activate
par
ActiveSheet.Rows(ligne).Activate