If Not Application.Intersect(Target, Range("C21")) Is Nothing Then
' Macro qui vérifie la valeur de C21.
'Elle s 'active à chaque changement dans la cellule C21'
If Range("C21").Text = "" Then
Rows("22:26").Select
Selection.EntireRow.Hidden = True
End If
If Range("C21").Text <> "" Then
Rows("22:26").Select
Selection.EntireRow.Hidden = False
[COLOR="Red"]Sheets("Calcul Rénovation").Range("P10") = 0[/COLOR]
End If
End If