Salut !
Merci pour vos réponses.
Pour la macro complète, ça donne ça :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MaPlage As Range
Select Case Target
Case Is = "COE Rang 1"
Set MaPlage = Sheets("Détails prestations").Range("B20")
Application.Goto Worksheets("Détails prestations").Range("B20"), Scroll:=False
ActiveWindow.Zoom = True
End Select
End Sub
L'erreur est trouvée sur la ligne surlignée.
Le soucis c'est que ma cellule contenant la valeur "COE Rang 1" est fusionnée avec 2 autres cellules.
Malheuresement jmd, je ne peux pas dé-fusionner ces cellules. Je pars d'un tableau existant et je dois respecter sa mise en forme.
Merci