Bonjour,
faite un click droit sur l'onglet "Données" et sélectionner "Visualiser le code"
puis coller y la macro événementielle suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
If Target.Address = "$A$5" Then
ligne = Application.Match(Target, Sheets("Feuil1").Range("B:B"), 0)
With Sheets("Feuil1")
Application.Goto .Range(.Cells(ligne, 1), .Cells(ligne, Columns.Count))
End With
End If
End Sub
étant donnée que les cellules correspondantes de la colonne A sont fusionnées, les lignes, des cellules fusionnées, seront sélectionnées lors du changement de valeur de la cellule A5 de la feuille "Données"