Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B10")) Is Nothing Then
Range("b11") = "=(B22*B10*(B6/1000)^3)*60"
Range("b12") = "=B11/((PI()*(B6/1000)^2)/4)/3600"
Range("b13") = "=(B10/60)*PI()*(B6/1000)"
Range("b14") = "=(B22*(B10*60)*(B6/1000)^3/3600)/(((DONNEES!B33/1000)^2*PI()/4)-((B6/1000)^2*PI()/4))"
Range("b15") = "=(B22*(B10*60)*(B6/1000)^3/3600)/(((DONNEES!B33/1000)^2*PI()/4))"
Range("b16") = "=(DONNEES!B17*B21*(B10/60)^3*(B6/1000)^5)/1000"
End If
If Not Application.Intersect(Target, Range("B11")) Is Nothing Then
Range("b10") = "=AA11/(B22*60*(B6/1000)^3)"
Range("b12") = "=B11/((PI()*(B6/1000)^2)/4)/3600"
Range("b13") = "=(B10/60)*PI()*(B6/1000)"
Range("b14") = "=(B22*(B10*60)*(B6/1000)^3/3600)/(((DONNEES!B33/1000)^2*PI()/4)-((B6/1000)^2*PI()/4))"
Range("b15") = "=(B22*(B10*60)*(B6/1000)^3/3600)/(((DONNEES!B33/1000)^2*PI()/4))"
Range("b16") = "=(DONNEES!B17*B21*(B10/60)^3*(B6/1000)^5)/1000"
End If
End Sub