Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Macro pour afficher les COLONNES de G à I, les LIGNES VIDES et déplacer les COMMENTAIRES
If Target.Count > 1 Then Exit Sub
If Not Target.Comment Is Nothing Then
If Not Intersect(Target, [A2:A8]) Is Nothing Then 'Jouer sur [A2:A8] pour la plage des commentaires à déplacer
Call AfficherMasquerLignes 'AfficherMasquerLignes = Nom Macro
ElseIf Not Intersect(Target, [F2:F8]) Is Nothing Then 'Jouer sur [F2:F8] pour la plage des commentaires à déplacer
Call LignesRegularisationColonnesExplications 'LignesRegularisationColonnesExplications = Nom Macro
End If
End If
Cancel = True
End Sub