Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect "0000"
Dim cellule As Range
If Not Intersect(Target, [F12:F14]) Is Nothing Then
Application.EnableEvents = False
If Application.CountIf([F12:F14], "- -") = 3 Then
[G12:G14].MergeCells = True
GoTo Fin
End If
If [G12:G14].MergeCells = True Then
[G12:G14].MergeCells = False
End If
For Each cellule In Intersect(Target, [F12:F14])
If cellule.Value = "- -" Then
cellule.EntireRow.Hidden = True
Else
cellule.EntireRow.Hidden = False
End If
Next cellule
Fin:
Application.EnableEvents = True
End If
'ActiveSheet.Protect "0000"
End Sub